Hallo Helfer,
mittels:
With SuchDialog
.Title = "Bitte wählen Sie ein Verzeichnis aus"
.InitialFileName = "C:\"
.ButtonName = "Auswahl übernehmen"
.Show
If .SelectedItems.Count = 0 Then
MsgBox "Sie haben kein Verzeichnis", vbInformation
Set SuchDialog = Nothing
Exit Sub
Else
quelle = .SelectedItems(1)
quelle = quelle & "\"
'MsgBox Quelle
End If
End With
kann ich einen Pfad auswählen.
Kann ich irgendwie als Startpfad den Computer definieren und nicht C:\ , also dass er mir alle verfügbaren Laufwerke anzeigt ?
Danke im voraus
Gruß Jürgen