Die Inventor FAQ wird unterstützt von:

Inventor FAQ Logo
Einsteigertipps Profitipps Probleme & Abstürze Themensammlungen Newsletter & Feed Alle Artikel Blog unterstützen

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!

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