Die Inventor FAQ wird unterstützt von:

Inventor FAQ Logo

30.06.2014

VBA: Pfad / Dateiname aus Dateipfad extrahieren

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

image

Ergebnis:

image

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.

Related Posts Plugin for WordPress, Blogger...
Inventor FAQ Newsletter. Emailadresse: