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
공지사항
카테고리
|
최근에 올라온 글
최근에 달린 댓글
최근에 받은 트랙백
태그목록
DbUtils Java C procedure function Delphi Excel MSsql jsp Android DOM Bluelab NSIS hooking Visual Basic 6.0 문자열 형변환 HashTable ADO flex mysql visual studio 2005 datagrid xml delphi svn 내장함수 C# Excel Eclipse Oracle글 보관함
달력
링크
Total :
Today : Yesterday :
Today : Yesterday :