Gruppe
Datei
Bereich
Name
Thema
Ermitteln von Datei- und Pfadnamen
Problem
Wie kann ich aus einem mit dem Befehl "GetOpenFilename" ermittelten vollen Dateinamen den eigentlichen Dateinamen und den Pfad ermitteln?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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