procedure ThCopyFile.GetFileList(const Path, Mask: string; var StringList1 : TStringList);
var
I : Integer;
SearchRec : TSearchRec;
begin
try
I := FindFirst(Path+Mask, 0, SearchRec);
while I = 0 do
begin
StringList1.Add(SearchRec.Name);
I := FindNext(SearchRec);
end;
except
raise;
end;
end;
FTP나 네트웍드라이브를 잡아서 할수 있겠죠..
관련자료는 이곳에도 찾아보시면 많구요..
그다음 찾아보실것은 파일을 지우는 것인데..
아래 펑션은 제가 다른 프로그램 쓸때 만들었던거를 수정한겁니다.
보시다시피 패스와 마스크를 주고 스트링리스트로 파일목록을 반환받는겁니다.
대충 눈으로 수정한거라 잘될지는 모르겠습니다만 테스트 해보시고 약간만
수정하시면 될거 같습니다.
사용예)GetFileList(sWorkPath, '*.jpg', MyStringList);
꼭 테스트 해보세요~~~
procedure ThCopyFile.GetFileList(const Path, Mask: string; var StringList1 : TStringList);
var
I : Integer;
SearchRec : TSearchRec;
begin
try
I := FindFirst(Path+Mask, 0, SearchRec);
while I = 0 do
begin
StringList1.Add(SearchRec.Name);
I := FindNext(SearchRec);
end;
except
raise;
end;
end;