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;

Posted by 나비:D
:

BLOG main image
by 나비:D

공지사항

카테고리

분류 전체보기 (278)
Programming? (0)
---------------------------.. (0)
나비의삽질 (5)
Application (177)
SQL (51)
Web (27)
etc. (14)
Omnia (0)
---------------------------.. (0)

최근에 올라온 글

최근에 달린 댓글

최근에 받은 트랙백

글 보관함

달력

«   2024/03   »
1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
31
Total :
Today : Yesterday :