정용광 wrote:

> 선택한 디렉토리에 파일이 몇개인지를 알고 싶습니다.

>

> 그래서 파일 갯수만큼 돌려서 값을 가지고 와야 하는데...

>

> 어떻게 해야 디렉토리에 있는 파일이 몇개인지를 알 수 있는지요...

>

> 고수님들의 답변을 부탁드립니다.

//////////////////////////////////////////////////////

DirectoryList는 디렉토리전체를 가진 스트링변수입니다.

이때는 서브폴더명과 루트디렉토리명(도스때 처럼 .과 .. 이름이생각이 안나는데요)도

가져오므로 SearchRec.Name로 잘 걸러내서 사용해보세요.

var

SearchRec: TSearchRec;

DirectoryList, P_Name : string;

begin

if FindFirst(DirectoryList + '*.*', faAnyFile , SearchRec) = 0 then begin

repeat

P_Name := DirectoryList + '' + SearchRec.Name;

...

until FindNext(SearchRec) <> 0;

FindClose(SearchRec);

end;

end;