Rekursive Verzeichnis / Datei - Suche

'Rekursive Suche nach Dateien
 'aufgeschrieben von Thomas Glockmann unter Mithilfe
 'von David Strutz und Frank Abbing
 
 Def FindFirstFile(2) !"kernel32","FindFirstFileA"
 Def FindNextFile(2) !"kernel32","FindNextFileA"
 Def FindClose(1) !"kernel32","FindClose"
 
 Struct WIN32_FIND_DATA=dwFileAttributes&,ftCreationTime#(8),ftLastAccessTime#(8),\
 ftLastWriteTime#(8),nFileSizeHigh&,nFileSizeLow&,dwReserved0&,dwReserved1&,\
 cFileName#(260),cAlternate#(14)
 
 Declare Pos&
 Declare HandleA&[]
 Declare HandleA$[]
 Declare Verz&
 Declare Datei&
 Declare FH&
 Declare FindData#
 Declare PM$
 Dim FindData#, Win32_Find_Data
 Declare Pfad$
 Declare Maske$
 
 Proc DateiListe
   'Parameters Pfad$,Maske$
   PM$ = Pfad$ + "\\" + Maske$
   FH& = FindFirstFile(Addr(PM$),FindData#)
   While (Pos& >= 1) And (FH& >= 0) = 1
     Repeat
       If (@String$(FindData#,44) <> ".") And (@String$(FindData#,44) <> "..")
         If (FindData#.dwFileAttributes& & $10) = $10
           Inc Verz&
           HandleA&[Pos&] = FH&
           HandleA$[Pos&] = Pfad$
           Pfad$ = Pfad$ + "\\" + @String$(FindData#,44)
           Print #1, Pos&, Verz&, Datei&
           Print Pfad$
           Print #1, Pfad$
           Inc Pos&
           'Dateiliste(Pfad$,Maske$)
           Dateiliste
         Else
           Inc Datei&
           Print @String$(FindData#,44)
           Print #1, Pos&, Verz&, Datei&
           Print #1, Pfad$ + "\\" + @String$(FindData#,44)
         EndIf
       EndIf
     Until FindNextFile(FH&,FindData#) = 0
     Dec Pos&
     If Pos& >= 1
       FH& = HandleA&[Pos&]
       Pfad$ = HandleA$[Pos&]
       Case FindNextFile(FH&,FindData#) = 0 : Break
     Else
       Break
     EndIf
   EndWhile
 EndProc
 Pos& = 1
 Assign #1, "C:\\Dateien.txt"
 ReWrite #1
 Cls
 Print "Suche..."
 'DateiListe("C:","*")
 Pfad$ = "C:"
 Maske$ = "*"
 Dateiliste
 FindClose(FH&)
 Close #1
 CLs
 Print "Verzeichnisse:", Verz&, "Dateien:", Datei&
 WaitInput