선택한 폴더의 들어있는 파일을 리스트 박스에 표시하는 예제


function TfrmMain.GetFileList(sFolder: string): integer;
var
  SrcRec  : TSearchRec;
  nCnt    : integer;
begin
  if DirectoryExists(sFolder) then
  begin
    nCnt := 0;

    // '\'가 없으면 붙임
    sFolder := IncludeTrailingPathDelimiter(sFolder);

    // 폴더의 모든 파일 표시
    if FindFirst(sFolder + '*.*', faAnyFile, SrcRec) = 0 then
    try
      repeat
         // 폴더, 현 폴더, 상위 폴더 제외
         if not((SrcRec.Attr and faDirectory > 0)) and
               (SrcRec.Name <> '.') and (SrcRec.Name <> '..') then
           begin
             Inc(nCnt);
             // 파일명 추가
             lstLog.Items.Add(SrcRec.Name);
           end;
       until (FindNext(SrcRec) <> 0);
       Result := nCnt;
    finally
      FindClose(SrcRec);
    end;
  end;
end;


-----------------------------------------------------------------------------------------

풀 패스에서 파일명이나 확장자나 패스만을 얻는 것은 델파이에서는 쉽게 할 수 있다.
하기야 만들어 짜면 되기야하지만 공부 삼아 만들어 보는 것도 나쁘지 않겠지만
이젠 공부삼아 만드는 것도 귀찮다. ^^;;

파일명 얻기
function ExtractFileName(const FileName: string): string;

확장자 얻기
function ExtractFileExt(const FileName: string): string;

패스 얻기
function ExtractFilePath(const FileName: string): string;

 

Posted by 띠리
BLOG main image
프로그래밍 공부하면서 써가는 개인 노트 (따라서 여기에 씌여있는 소스의 신빙성을 보장 못함 -.-;;) 이 블로그 보면서 틀린 점이 있으면 꼬옥 알려주세요. by 띠리

공지사항

카테고리

분류 전체보기 (323)
Win32 SDK 초보 (27)
통신관련 (11)
MFC TIP (20)
C/C++ TIP (10)
개발기타 (10)
링크 (2)
견물생심 (24)
이것저것 (8)
용어메모 (3)
데이터베이스 (32)
비주얼 베이직 (10)
하드웨어 (3)
C# (42)
Xcode (3)
델파이 (82)
홈페이지 (5)
MindStorm (0)
낙서 (5)
스크래치 (0)
기타 (6)
아두이노 (1)
라즈베리파이 (2)
안드로이드 (6)
파이썬 (0)
WEB (2)
Excel VBA (0)
Total : 1,005,829
Today : 16 Yesterday : 380