[델파이] 지정한 폴더에 들어 있는 파일을 표시

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

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;