crystal wrote:

> 안녕하세요

> 초자 crystal입니다.

>

> open해서 파일을 로드하는데요

> 어떤 디렉토리를 선택하면 그 디렉토리안에 있는 파일을 불러드릴수 있나요?

> 윈엠프처럼 디렉토리만 선택하면 자동으로 불러드려져야 하는데요

>

> 아시는분 도움부탁합니다.

>



안녕하세요 ^^



제생각으로.. findfirst, findnext함수를 이용해..

파일 리스트를 만든후 파일을 하나씩불러 오면 될것 같군요.

아래.. 참고하세요.



procedure TForm1.FileListMake(Path: String);

var

sr: TSearchRec;

done: Integer;

TempList: TStringList;

i: Integer;

begin

TempList := TStringList.Create;

FindFirst(Path+'*.*', faAnyFile, sr);

try

while done=0 do

begin

TempList.Add(sr.Name);

done := FindNext(sr);

end;



TempList.SaveToFile(Path+'FileList.TXT');

end;

finally

FindClose(sr);

TempList.Free;

end;

end;



그럼..20000.