Rubrik: Dateisystem · Dateien allgemein | VB-Versionen: VB6 | 03.03.01 |
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: | Views: 12.735 |
ohne Homepage | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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"