Hier ein kleiner Codeschnipsel, der zeigt, wie man aus einem Dateipfad den Pfad und den Dateinamen extrahiert.
Public Sub Dateipfad()
Dim filesystem As Object
Set filesystem = CreateObject("Scripting.FilesystemObject")
Dim oDoc As Document
Set oDoc = ThisApplication.ActiveDocument
Pfad = filesystem.GetParentFolderName(oDoc.FullFileName) & "\"
Dateiname = filesystem.getfilename(oDoc.FullFileName)
MsgBox "Pfad: " & Pfad & vbCr & "Dateiname: " & Dateiname
End Sub
Ergebnis:
Keine Kommentare:
Kommentar veröffentlichen
War der Beitrag hilfreich oder hast du eine Ergänzung dazu?
Ist noch eine Frage offen?
Ich freue mich auf deine Rückmeldung!
Hinweis: Nur ein Mitglied dieses Blogs kann Kommentare posten.