PureBoard

Verfasst: **14.10.2007 14:47**

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

Verfasst: **14.10.2007 14:54**

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 ")

Verfasst: **14.10.2007 14:56**

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

Verfasst: **14.10.2007 14:56**

Misst jetzt war jemand ein paar Sekunden schneller!

Verfasst: **14.10.2007 14:58**

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 !!

Verfasst: **14.10.2007 15:04**

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

Verfasst: **14.10.2007 15:07**

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?

Verfasst: **14.10.2007 15:11**

ahhh...
danke THOMAS ...

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

naja

thx cu

Verfasst: **14.10.2007 16:51**

lassma-asma hat geschrieben:hab aber noch 3.94...

dann schreib das bitte in Deine Signatur.

Grüße ... Kiffi

Verfasst: **14.10.2007 17:30**

ok danke kiffi

wird gemacht ...

PureBoard

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

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