wie kann ich aus einem string strWorkbookNameinklPath in dem
"C:\Auswertung.xls"
oder "C\Test\PV45.xls"
usw.
den Dateinamen von dem Pfad trennen
gruß
swen
Sub tt()
Dim txt, strPfad As String, strDatei As String
txt = "C\Test\PV45.xls"
strDatei = Right(txt, Len(txt) - InStrRev(txt, "\"))
strPfad = Left(txt, Len(txt) - Len(strDatei) - 1)
End Sub
Gruß
Function Name_pur(Dateiname As String) As String
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Name_pur = fso.GetFileName(Dateiname)
End Function
Sub teste()
MsgBox Name_pur("C:\Ordener\Verzeichnis\deineDatei.xls")
End Sub