Dim Shell As Object
        Dim Ordner As String
        Dim Startordner = "\\Servername"
 
        Shell = CreateObject("Shell.Application")
        Ordner = Shell.BrowseForFolder(0, "Bitte einen Ordner auswählen", 0, _
          Startordner.toString)