Rekursiv...aber nicht vollständig..?

[Tafkadasom2k5]

Hey!
Ich habe hier nen rekursiven Aufruf meiner Procedure vom letzten mal...
Aber irgendwie geht die nicht ALLE Ordner einmal durch.Sondern fängt ab 2Ordnern einfach an, die Unterordner zu ignorieren...

WTF?

Code: Alles auswählen

newlist alledateien.s()
Procedure Fill_List(Directory.s)
  Ordner = ExamineDirectory(#PB_Any,Directory,"*.*")   ;Alle Dateien Durchsuchen
  
  Repeat                             ;wird wiederholt, bis das Ende des Ordners erreicht ist
    Test = NextDirectoryEntry()      ;Test enspricht hiernach 1 oder 2-d.H., dass man daran erkent ob es ne Datei oder n Ordner ist.
    If Test = 1
      If UCase(GetExtensionPart(DirectoryEntryName())) = "MP3" Or UCase(GetExtensionPart(DirectoryEntryName())) = "WMA" ;nur zur Liste hinzufügen, wenn die Dtei eine mp3 ist.
        AddElement(alledateien())
        alledateien() = Str(Ordner) + ";" + "MP3" + ";" + Directory + "\" + DirectoryEntryName() + ";" + DirectoryEntryName() + ";" + Str(DirectoryEntrySize())
      EndIf
      
    EndIf
    If Test = 2 And DirectoryEntryName() <> "." And DirectoryEntryName() <> ".."
      AddElement(alledateien())
      alledateien() = Str(Ordner) + ";" + "DIR" + ";" + Directory + "\" +  DirectoryEntryName() + ";" + DirectoryEntryName() + ";" + Str(DirectoryEntrySize())
      NewDirectory.s = Directory + DirectoryEntryName()
      Fill_List(NewDirectory)
      UseDirectory(Ordner)
    EndIf
    
    
  Until Test = 0
  
EndProcedure

Fill_List(C:\)
Foreach alledateien()
 debug alledateien()
Next

Bin auf alle Lösungsansätze gespannt...

[Batze]

Hmm, stimmt.
Wie kommt das?

Edit:

Code: Alles auswählen

newlist alledateien.s()
Procedure Fill_List(Directory.s)
  Ordner = ExamineDirectory(#PB_Any,Directory,"*.*")   ;Alle Dateien Durchsuchen
 
  Repeat                             ;wird wiederholt, bis das Ende des Ordners erreicht ist
    Test = NextDirectoryEntry()      ;Test enspricht hiernach 1 oder 2-d.H., dass man daran erkent ob es ne Datei oder n Ordner ist.
    If Test = 1
      If UCase(GetExtensionPart(DirectoryEntryName())) = "MP3" Or UCase(GetExtensionPart(DirectoryEntryName())) = "WMA" ;nur zur Liste hinzufügen, wenn die Dtei eine mp3 ist.
        AddElement(alledateien())
        alledateien() = Str(Ordner) + ";" + "MP3" + ";" + Directory + "\" + DirectoryEntryName() + ";" + DirectoryEntryName() + ";" + Str(DirectoryEntrySize())
      EndIf
     
    EndIf
    If Test = 2 And DirectoryEntryName() <> "." And DirectoryEntryName() <> ".."
      AddElement(alledateien())
      alledateien() = Str(Ordner) + ";" + "DIR" + ";" + Directory + "\" +  DirectoryEntryName() + ";" + DirectoryEntryName() + ";" + Str(DirectoryEntrySize())
      NewDirectory.s = Directory + "\" + DirectoryEntryName() ; !!!!!!! Hier lag dein Fehler: Ein vergessener "\"!!!!!!
      Fill_List(NewDirectory)
      UseDirectory(Ordner)
    EndIf
   
   
  Until Test = 0
 
EndProcedure

Fill_List("C:\")
Foreach alledateien()
 debug alledateien()
Next

Der sollte gehen.

[Tafkadasom2k5]

Hey Danke!
Soweit gehts!
Aber hats du dir mal den Debug angeschaut?
Da sind z.T. Ordner\\Ordner1...
Also mit DOPPELBACKSLASH getrennt..woran liegt denn das?

Gr33tz
Tafkadasom2k5

[ts-soft]

Also mit DOPPELBACKSLASH getrennt..woran liegt denn das?

Gr33tz
Tafkadasom2k5

Laufwerke werden von Windows immer mit BackSlash zurückgegeben, wohingegen Unterordner immer ohne.
Mußte also noch ausfiltern!

[Tafkadasom2k5]

Aber so gesehen, wennb ich ab dem LOKALEN Ordner D: suche

D:\Programme\Shareaza\Downloads

suche, dann ist doch kein extra Laufwerk drangebunden?Also ich habe nur n Ordner auf der Festplatte dursucht..


Gr33tz
Tafkadasom2k5

[ts-soft]

>> D:\Programme\Shareaza\Downloads
Wird gefunden:
D:\
D:\Programme
D:\Programme\Shareaza
D:\Programme\Shareaza\Downloads

Durch anhängen von einem Backslash, sieht der erste Treffer so aus:
D:\\

[Tafkadasom2k5]

Aber WARUM geht das denn nicht ohne?Erst wenn ich diesen Backslah manuell dranhänge funktioniert der komplette rekursive Aufruf!
Das ist ja das Merkwürdige?

[ts-soft]

Machs einfach so, warum Windows nicht immer ein Backslash anhängt ist mir auch nicht klar

Code: Alles auswählen

NewList alledateien.s()
Procedure Fill_List(Directory.s)
  Ordner = ExamineDirectory(#PB_Any,Directory,"*.*")   ;Alle Dateien Durchsuchen
 
  Repeat                             ;wird wiederholt, bis das Ende des Ordners erreicht ist
    Test = NextDirectoryEntry()      ;Test enspricht hiernach 1 oder 2-d.H., dass man daran erkent ob es ne Datei oder n Ordner ist.
    If Test = 1
      If UCase(GetExtensionPart(DirectoryEntryName())) = "MP3" Or UCase(GetExtensionPart(DirectoryEntryName())) = "WMA" ;nur zur Liste hinzufügen, wenn die Dtei eine mp3 ist.
        AddElement(alledateien())
        alledateien() = Str(Ordner) + ";" + "MP3" + ";" + Directory + "\" + DirectoryEntryName() + ";" + DirectoryEntryName() + ";" + Str(DirectoryEntrySize())
      EndIf
     
    EndIf
    If Test = 2 And DirectoryEntryName() <> "." And DirectoryEntryName() <> ".."
      AddElement(alledateien())
      alledateien() = Str(Ordner) + ";" + "DIR" + ";" + Directory + "\" +  DirectoryEntryName() + ";" + DirectoryEntryName() + ";" + Str(DirectoryEntrySize())
      NewDirectory.s = Directory + "\" + DirectoryEntryName() ; !!!!!!! Hier lag dein Fehler: Ein vergessener "\"!!!!!!
      NewDirectory = ReplaceString(NewDirectory, "\\", "\")
      Fill_List(NewDirectory)
      UseDirectory(Ordner)
    EndIf
   
   
  Until Test = 0
 
EndProcedure

Fill_List("C:\")
ForEach alledateien()
 Debug alledateien()
Next 

[Tafkadasom2k5]

OK, soweit alles klar...
Aber kann es sein, dass er erst die Unterordner, und danach auch wieder die oberordner durchsucht?Oder bin ich ein wenig kirre..^^

Irgendwie sind Dateien in meiner Liste von meinem Windows ORdner vorhanden, auch wenn er nur ganz kurz läd.

Sehr misteriös

[Arrag0n]

Daaaaanke!

Dein Beitrag hat mir sehr geholfen..

Arrag0n