Dateinamen anzeigen
Andre´
mit nachfolgenden Code wird der Pfad+Dateiname angezeigt, wenn eine Datei ausgewählt wurde.
Sub Datei()
Dim Auswahl$
With Application.FileDialog(3)
.InitialFileName = "C:\Temp"
.InitialView = 2
If .Show = -1 Then
Auswahl = .SelectedItems(1)
MsgBox Auswahl
End If
End With
End Sub
Vielen Dank im Voraus!
MFG Andre
Anzeige