prüfen ob Ordner leer ist

[sen-me]

wie kann ich prüfen ob ein ordner leer ist? und zwar in mitten einer seach action, also ich lasse alles absuchen und wenn der ordner leer ist soll er den überspringen

[scholly]

wie kann ich prüfen ob ein ordner leer ist?

Ergebnis = NextDirectoryEntry() .....'Ergebnis' kann die folgenden Werte annehmen:
0: keine weiteren Einträge im Verzeichnis
1: dieser Eintrag ist eine Datei
2: dieser Eintrag ist ein Verzeichnis

Geht das damit nicht ?

bis denne...
scholly

[Laurin]

Ich denke, ich hab's ausreichend dokumentiert.

Code: Alles auswählen

; German forum: http://forums.purebasic.com/german/viewtopic.php?t=6117
; Author: Laurin
; Date: 18. December 2005

Procedure.l IsEmptyDir(Dir.s)
  Protected DirElement.l                   ; Variablen, die benötigt werden und nicht(!) in Konflikt
                                           ; mit gleichnamigen globalen Varaiblen geraten sollen.
  
  ExamineDirectory(#PB_Any, Dir, "*.*")    ; Verzeichnis "öffnen"
  
  Repeat                                   ; jedes Verzeichniselement prüfen
    DirElement = NextDirectoryEntry()      ; schauen wir uns das nächste Element des Verzeichnisses an
    
    Select DirElement
      Case 1                               ; Datei gefunden
        ProcedureReturn #False             ; -> raus aus der Procedure
        
      Case 2                               ; Verzeichnis gefunden
        If DirectoryEntryName() <> "."     ; Das Verzeichnis "." ist ein Platzhalter für das aktuelle Verzeichnis. (*)
          If DirectoryEntryName() <> ".."  ; Das Verzeichnis ".." ist ein Platzhalter für das übergeordnete Verzeichnis. (*)
            ProcedureReturn #False         ; -> raus aus der Procedure
          EndIf
        EndIf
    EndSelect
  Until DirElement = 0                     ; 0 = kein weiteres Element im Verzeichnis

  ProcedureReturn #True
  
  ;(*)
  ; "." und ".." sind Bestandteil eines jeden Verzeichnisses unter Windows.
EndProcedure

; --- Anwendungsbeispiel ---
Dir.s = PathRequester("Verzeichnis wählen", "C:\")

If IsEmptyDir(Dir)
  MessageRequester("Ergebnis", "Das Verzeichnis " + Dir + " ist leer.")
Else
  MessageRequester("Ergebnis", "Das Verzeichnis " + Dir + " ist nicht leer.")
EndIf

End

[sen-me]

und was is wenn
/ordner/ordner2
is, wobei ordner2 leer ist

dann gibt er bei odner false aus :/

[scholly]

Ich denke, ich hab's ausreichend dokumentiert.

Code: Alles auswählen

streiche: If DirectoryEntryName(() <> ".." 
setze:If DirectoryEntryName() <> ".." 

SCNR...
scholly

[Andre]

@Laurin: das nenn ich mal CodeArchiv-gerechte Beiträge

(auch wenn jetzt noch OS + Demo-Kompatibilität dazugehört )

[scholly]

und was is wenn
/ordner/ordner2
is, wobei ordner2 leer ist

dann gibt er bei odner false aus :/

Bei mir nicht.
Ich hab den Code gleich veriennahmt und c:\temp\egal eingerichtet, wobei in temp nur egal ist und egal leer ist.
Ergebnis: "Das Verzeichnis C:\temp\ ist nicht leer".
Und das stimmt
scholly

[sen-me]

fazit ich müsste erst den ordner egal durchsuchen ob er leer is, und dann temp? (den ordner muss ich dan bei der suche halt ausschließen

[scholly]

fazit ich müsste erst den ordner egal durchsuchen ob er leer is, und dann temp? (den ordner muss ich dan bei der suche halt ausschließen

Im Prinzip ja....

Es könnte uns Außenstehenden vielleicht helfen, wenn Du uns erzählst, wonach Du wo suchst.

[Laurin]

@Laurin: das nenn ich mal CodeArchiv-gerechte Beiträge

Argh, nee, sorry. Mit Letzteren kann ich nicht dienen.
Es freut mich aber trotzdem, dass dir das so gefällt.

und was is wenn
/ordner/ordner2
is, wobei ordner2 leer ist

dann gibt er bei odner false aus :/

Das dürfte nicht sein. War das Verzeichnis wirklich leer?

@Scholly:
Hab's mal fix gändert (hoffentlich sieht's keiner)