Gruppe
Datei
Problem
Mit der GetOpenFileName-Methode kann ich den Datei- mit dem Pfadnamen abrufen. Wie kann ich aus dieser Zeichenfolge den Dateinamen filtern?
StandardModule: basMain
Sub FileFilter()
Dim vFile As Variant
vFile = Application.GetOpenFilename
If vFile = False Then Exit Sub
vFile = Dir(vFile)
MsgBox vFile
End Sub