kann mir jemand helfen, den Dateinamen per VBA aus der Pfadangabe herauszulesen, also ohne den Pfad und ohne Erweiterung:
C:\Pfad\Pfad\pfad\dateiname.xyz
herauskommen soll "dateiname", der eine variable Länge haben kann.
Vielen Dank im voraus, Heiko
Function Name_pur(Dateiname As String) As String
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Name_pur = fso.GetBaseName(Dateiname)
End Function
Sub test()
Dim n
n = "C:\Pfad\Pfad\pfad\dateiname.xyz"
MsgBox Left(Dir(n), Len(Dir(n)) - 4)
End Sub