Problem mit Dir()

[Ray65]

Hallo Zusammen,

nach langer Abstinenz habe ich mir wieder Gambas zugewendet und stoße gleich auf ein Problemchen.
Folgender Code funktioniert tadellos:
gambas code

sBaseDir = BaseDir
  sBasePath = $ProjDir
  sPattern = "*"
  iFilter = gb.Directory
 
  If Exist(sBaseDir) Then
     For Each sDir In Dir(sBaseDir, sPattern)
       TreeView1.Add(sBaseDir &/ sDir, sDir, Picture["icon:/16/directory"], sBaseDir, Null)  
       DirTree2TreeView(sBaseDir &/ sDir) 
     Next
  Endif

Um zusätzlich Dateien auszulesen habe ich "iFilter" auf "iFilter = gb.File + gb.Directory" geändert. Sobald ich aber auf eine Datei stoße, kommt der Fehlermeldung "test.xml ist kein Verzeichnis".
Was mache ich falsch?

Gruß Raymond

[Ray65]

Ok, ich hab den Fehler gefunden.
Ich rufe diese Funktion mit "DirTree2TreeView(sBaseDir &/ sDir)" rekursiv auf. Ich sollte vorher prüfen ob sBaseDir ein Verzeichnis oder Datei ist.
Folgendes funktioniert:
gambas code

     For Each sDir In Dir(sBaseDir, sPattern)
       TreeView1.Add(sBaseDir &/ sDir, sDir, Picture["icon:/16/directory"], sBaseDir, Null)
       If IsDir(sBaseDir &/ sDir) Then
        DirTree2TreeView(sBaseDir &/ sDir)
       Endif
     Next

Gruß Raymond