Nur Pfad aus vollständigem Pfad+Dateinamen zurückgeben

Sprache / Programm: VBA ab Office 97

Beschreibung

Gibt den Pfad aus einer vollstänigen Angabe von Dateiname und Pfad zurück.

VBA-Quelltext

Public Function Pfad(PfadUndName As String) As String
Dim Pos As Integer
If PfadUndName = "" Then Exit Function
Pos = 0
Do
Pfad = Mid(PfadUndName, 1, Pos)
Pos = InStr(Pos + 1, PfadUndName, "\")
Loop Until Pos = 0
End Function

Argumente der Funktion/Prozedur

PfadUndName: Kompletter Pfad und Dateiname als String.

Verwendete Variable

Pos: Positionszähler für den untersuchten String

Rückgabewert

Name der Datei oder des Verzeichnisses als String

Hinweis

Wenn die Datei existiert, können alternativ zu dem Programm auch folgende VBA-Befehle benutzt werden:

PN = "C:\Windows\system\sysedit.exe"

NeuerPfad = Left(PN, Len(PN)-len(dir$(PN)))

Anwendungsgebiete, Fehler und Warnungen

Das Programm prüft nicht, ob die Datei existiert. Das Programm kann auch nicht festsellen, ob bei dem Rückgabewert tatsächlich ein Dateiname oder ein Verzeichnisname abgeschnitten wurde. Siehe auch Hinweis.