Public Class Form1
 
    Public DirList As New List(Of String)
    Public bytSubDir As Byte       
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim strSourcePath As String
 
 
        strSourcePath = "G:\Users\Sampleman\Pictures"
        ProcessDirectory(strSourcePath)
        DirList.Add(strSourcePath)
 
...
...
...
 
    End Sub
 
    Public Sub ProcessDirectory(ByVal targetDirectory As String)
 
        Dim subdirectoryEntries As IO.DirectoryInfo()
        Dim dir As New IO.DirectoryInfo(targetDirectory)
 
        Try
            If (dir.Exists) Then
                subdirectoryEntries = dir.GetDirectories
                ' Diese Prozedur rekursiv aufrufen
 
                For Each subdirectory As IO.DirectoryInfo In subdirectoryEntries
 
                    ' Excluded Pfade überprüfen
                    bytSubDir = 0
                    'Call PfadExl(subdirectory.FullName)
                    If bytSubDir = 0 Then DirList.Add(subdirectory.FullName)
 
                    If bytSubDir <> 2 Then
                        ProcessDirectory(subdirectory.FullName)
                    End If
 
                Next subdirectory
            Else
                Dim strBox As String = "Verzeichnis: " & targetDirectory & "" & _
                  "ist" & _
                  "nicht vorhanden!"
                DirList.Add(strBox)
            End If
        Catch ex As Exception
            Dim strBox As String = String.Format("Auf Verzeichnis '{0}' kann" & _
              "nicht zugegriffen werden.", targetDirectory)
            DirList.Add(strBox)
        End Try
    End Sub
 
End Class