function TfmBackUp.FindFile(FolderName: String): Integer;
var
RowIndex : Integer;
SR : TSearchRec;
begin
if (findFirst(FolderName+'\*.*',faAnyFile,Sr)) = 0 then
repeat
if (Sr.Name <> '.') and (Sr.Name <> '..') then
begin
if (SR.Attr and faDirectory) = faDirectory then
begin
FindFile(FolderName + '\'+SR.Name);
end
else
ListBox1.Items.Add(Sr.Name);
end;
until FindNext(Sr) <> 0;
FindClose(Sr);
end;
by 나비:D
공지사항
카테고리
|
최근에 올라온 글
최근에 달린 댓글
최근에 받은 트랙백
태그목록
visual studio 2005 Oracle function Eclipse Delphi Excel Android DbUtils C# MSsql flex mysql ADO hooking DOM 형변환 HashTable xml 문자열 delphi datagrid procedure Excel C svn NSIS jsp Bluelab Visual Basic 6.0 Java 내장함수글 보관함
달력
링크
Total :
Today : Yesterday :
Today : Yesterday :