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