Gruppe
Datei
Problem
Wie kann ich aus einem mit dem Befehl "GetOpenFilename" ermittelten vollen Dateinamen den eigentlichen Dateinamen und den Pfad ermitteln?
StandardModule: basMain
Sub FileNamePath()
Dim vAdr As Variant
vAdr = Application.GetOpenFilename
If vAdr = False Then Exit Sub
MsgBox vAdr & Chr(13) & Dir(vAdr) & _
Chr(13) & Left(vAdr, Len(vAdr) - Len(Dir(vAdr)))
End Sub