Hier ein Beispiel:al90 hat geschrieben:Eine sache macht mir allerdings noch Kopfschmerzen. Das wegfallen des
UseDirectory() Befehls. Habs bis jetzt noch nicht hinbekommen ein Verzeichniss komplett mit unterdirs auszulesen, muss dabei aber auch sagen
das ich es nur ein paar minuten probiert habe.
Code: Alles auswählen
Procedure.l Count_Files(Source.s)
Protected Num.l
Num = 0
If Right(Source, 1) <> ""
Source + ""
EndIf
Dir.l = ExamineDirectory(#PB_Any, Source, "")
If Dir
While NextDirectoryEntry(Dir)
Select DirectoryEntryType(Dir)
Case 1
Num + 1
Case 2
If DirectoryEntryName(Dir) <> "." And DirectoryEntryName(Dir) <> ".."
Num + Count_Files(Source + DirectoryEntryName(Dir))
EndIf
EndSelect
Wend
FinishDirectory(Dir)
EndIf
ProcedureReturn Num
EndProcedure
Debug Count_Files("C:\WINDOWS")