' Ausgangsverzeichnis
Dim sPath As String = "d:\temp"
 
' alle Verzeichnisse ermitteln
Dim oDirs As System.IO.DirectoryInfo() = New System.IO.DirectoryInfo( _
  sPath).GetDirectories
 
' alle Dateien ermitteln
Dim oFiles As System.IO.FileInfo() = New System.IO.DirectoryInfo(sPath).GetFiles
 
' Alle Verzeichnisse durchlaufen
For Each oDir As System.IO.DirectoryInfo In oDirs
  ..   
Next 
 
' alle Dateien druchlaufen
For Each oFile As System.IO.FileInfo In oFiles
  ...
Next

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de