Pfadnamen extrahieren Analog zu unserem vorigen Tipp kann mit nachfolgender Routine der reine Pfadnamen aus einer kompletten Pfadangabe (Pfad+Datei) ermittelt werden.
Autor:   Dieter Otter	Bewertung:	Views:  16.342
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Analog zu unserem vorigen Tipp kann mit nachfolgender Routine der reine Pfadnamen aus einer kompletten Pfadangabe (Pfad+Datei) ermittelt werden.

' Die nachfolgende Funktion ermittelt den reinen
' Pfadnamen aus einem übergebenen Pfad+Datei - String
Public Function SplitPathFromFile(ByVal File As String) _
 As String
  Dim Pfad As String
 
  Pfad = File
  While right$(Pfad, 1) <> "\" And _
   right$(Pfad, 1) <> ":" And Pfad <> ""
    Pfad = left$(Pfad, Len(Pfad) - 1)
  Wend
  If right$(Pfad, 1) = "\" Then _
    Pfad = left$(Pfad, Len(Pfad) - 1)
 
  SplitPathFromFile = Pfad
End Function

Beispiel:
sFile = "c:\windows\system\command.com"
sName = SplitPathFromFile(sFile)

Ergebnis: sName = "c:\windows\system"
 

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.