PureBoard

Verfasst: **20.05.2012 11:42**

Also ich hab hier mal ein kleines CodeBeispiel aus dem Forum (rekursieve durchsuchung von Ordnern + alle Unterordner) etwas auf meine Ansprüche angepasst.
Zu diesem Beispiel hab ich mal eine kleine Frage. Erstam der Code:

Code: Alles auswählen

Procedure sucheMusikdateien(pfad.s, List Liste.s(), typ.s="mp3,wma,wav")
  PathAddBackslash_(@pfad) ; Hängt Backslash an, falls nötig
  Protected dir=ExamineDirectory(#PB_Any, pfad, ""), n
  
  If dir
    While NextDirectoryEntry(dir)
      If DirectoryEntryType(dir) = #PB_DirectoryEntry_File
        For n=1 To CountString(typ, ",")+1
          
          If StringField(typ, n, ",") = LCase(GetExtensionPart(DirectoryEntryName(dir)))
            AddElement(Liste())
            Liste()=pfad+DirectoryEntryName(dir)
            
            Break
            
          EndIf
          
        Next
        
        Continue
        
      ElseIf DirectoryEntryName(dir) <> "." And DirectoryEntryName(dir) <> ".."
        sucheMusikdateien(pfad+DirectoryEntryName(dir), Liste(), typ)
      EndIf
      
    Wend
    
    FinishDirectory(dir)
  EndIf
EndProcedure

NewList MeineMucke.s()

sucheMusikdateien("C:\Dokumente und Einstellungen\Admin\Eigene Dateien\", MeineMucke())

ForEach MeineMucke()
   Debug MeineMucke()
Next

Jetzt zu meiner Frage. Also schlagt mich wenn ich falsch liege aber der Befehl "Continue" ist doch in diesem Beispiel absolut überflüssig, da er sowieso am Ende des If-Block's steht oder gibt es einen bestimmten Grund, warum das da steht?

Verfasst: **20.05.2012 13:10**

Ja, das ist da unnötig. Vielleicht wurde es ja mal in einer vorherigen Version des Codes sinnvoll genutzt.

Verfasst: **20.05.2012 14:42**

OK, wollt nur nochmal auf Nummer sicher gehen, danke für die Antwort.

PureBoard

Rekursion Ordern-Scan (Verständnis-Frage)

Rekursion Ordern-Scan (Verständnis-Frage)

Re: Rekursion Ordern-Scan (Verständnis-Frage)

Re: Rekursion Ordern-Scan (Verständnis-Frage)