AW: Ordnername einlesen
30.03.2017 16:09:39
UweD
Hallo
so ?
Sub Datei_Verzeichnis_wählen()
Dim Dlg As FileDialog
Dim StartPfad As String, Verz As String
'****
StartPfad = "C:\Temp\"
'oder
StartPfad = "\\Server\"
'****
StartPfad = StartPfad & IIf(Right(StartPfad, 1) = "\", "", "\") 'nur zur Sicherheit, ob \ vorhanden ist
Set Dlg = Application.FileDialog(msoFileDialogFolderPicker)
With Dlg
.InitialFileName = StartPfad 'Welches Verzeichnis soll voreingestellt sein
If .Show = True Then
Verz = .SelectedItems(1)
'***
MsgBox "gewählt wurde " & Verz
Else
MsgBox "Die Aktion wurde abgebrochen", vbCritical, "Abbruch...!"
Exit Sub
End If
End With
End Sub
LG UweD