Pfadnamen extrahieren II Dieser Tipp zeigt, wie man mit der VB InstrRev-Funktion den reinen Pfadnamen einer kompletten Pfadangabe ermitteln kann.
Autor:   Marc A. Simonis	Bewertung:     [ Jetzt bewerten ]	Views:  13.306
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 11 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.5 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

In unserem Tipp Pfadnamen extrahieren vom 09.11.00 haben wir Ihnen eine Möglichkeit vorgestellt, wie man den reinen Pfadnamen aus einer kompletten Pfadangabe (Pfad+Datei) ermitteln kann. Das ganze wurde mit Hilfe einer WHILE...WEND - Schleife realisiert und funktioniert ab der Version Visual-Basic 3.0.

Wenn Sie mit der Version Visual-Basic 6.0 arbeiten, kann die reine Pfadangabe auch mit Hilfe der InStrRev-Funktion "extrahiert" werden.

' strFilename: gesamter String (Pfad+Datei)
' strPfad: extrahierter Pfadname
 
strPfad = Left$(strFilename, InStrRev(strFilename, "\"))

Beispiel:

sFile = "c:\windows\system\command.com"
sPfad = Left$(sFile, InStrRev(sFile, "\"))
If Right$(sPfad, 1) = "\" Then _
  sPfad = Left$(sPfad, Len(sPfad) - 1)
 
Ergebnis: sPfad = "c:\windows\system"