Pfad ausschneiden

[VB_starter]

Hallo zusammen. Ich bin ein absoluter VB anfänger. Ich will einen Pfad z.B C:/hallo/test so ausschneiden das nur noch C:/hallo/ bleibt. Im klartext will ich den Pfad immer bis zum letzten "/" ausschneiden? Ich komme nicht drauf wie ich das machen soll. Hab zwar gelesen das man irgentwas mit right oder left machen soll bin aber trotzem nich so auf dem rechten weg gekommen.

Ich hoffe ihr könnt mir helfen!

Mit freundlichen Grüssen

VB_starter

 

[Zvoni]

Zu allererst: Bei Pfaden unter Windows wird der Backslash ("\") verwendet, und nicht der Vorwärts-Schrägstrich.

Aus dem Bauch heraus:

Dim SplitPath() As String
Dim MeinPfad As String
Dim i As Long

MeinPfad="c:\Hallo\Test"

SplitPath=Split(MeinPfad,"\")

MeinPfad=""

For i=0 to Ubound(SplitPath)-1

MeinPfad=MeinPfad & SplitPath(i) & "\"

Next

 

[ronaldh]

Oder Dui benutzt die InstrRev-Funktion:

Public Function GetPath(FileName As String) As String
   If InStrRev(FileName, "\") > 0 Then
      GetPath = Left(FileName, InStrRev(FileName, "\"))
   End If
End Function

 

[Zvoni]

OMG, ich fass es nicht, dass ich die InStrRev-Funktion nicht gekannt habe.
Ich benutz das Gegenstück InStr fast täglich.

Man lernt doch nie aus. ^^