Dateien in Ordner zählen lassen {GELÖST}

[lassma-asma]

Hi Leutz ,

ich steh ma wieder grad aufm Schlauch ... für mein neues Programm will ich den Pc die anzahl der Dateien in einem Ordner zählen lassen , find aber nix passendes (Befehl)

Könnte mir ma grad einer helfen

THX

[edel]

Code: Alles auswählen

ExamineDirectory(0,"c:\","*.*")

While NextDirectoryEntry(0)
  If DirectoryEntryType(0) = #PB_DirectoryEntry_File
    count + 1    
  EndIf 
Wend 

MessageRequester("",Str(count) + " Dateien gefunden ")

[Thomas]

Weiß jetzt nicht, ob es was Besseres gibt, aber:

Code: Alles auswählen

Counter.l = 0
If ExamineDirectory(0, "C:\", "*.*")  
  While NextDirectoryEntry(0)
    If DirectoryEntryType(0) = #PB_DirectoryEntry_File
      Counter + 1
    EndIf
  Wend
  FinishDirectory(0)
EndIf
Debug Counter

[Thomas]

Misst jetzt war jemand ein paar Sekunden schneller!

[lassma-asma]

thx für die schnelle antwort ..
hab aber noch 3.94...

da gibts den befehl

Code: Alles auswählen

  If DirectoryEntryType() = #PB_DirectoryEntry_File 

nitt

HILFE !!

[Thomas]

Schau dir mal das Beispiel "FileSystem.pb" im Ordner Example im PB-Verzeichnis an.
Vielleicht hilft dir das was weiter.

[Thomas]

Hab noch schnell was getippt:

Code: Alles auswählen

Counter.l = 0
If ExamineDirectory(0, "C:\", "*.*")
  Repeat
    Type.l = NextDirectoryEntry()
    If Type = 1
      Counter + 1
    EndIf
  Until Type = 0
EndIf
Debug Counter

Hilft dir das weiter?

[lassma-asma]

ahhh...
danke THOMAS ...

bin heut irgendwie müüüüde unn steh nur auf em schlauch ...

naja

thx cu

[Kiffi]

hab aber noch 3.94...

dann schreib das bitte in Deine Signatur.

Grüße ... Kiffi

[lassma-asma]

ok danke kiffi

wird gemacht ...