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)

글 보관함

달력

«   2018/01   »
  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 : 903,518
Today : 215 Yesterday : 175