VBA Lösung, Nachtrag
08.07.2011 08:39:56
Heiko
Moin nochmal,
hier noch ein paar Lösungsmöglichkeiten:
Sub ZerlegenVBA()
Dim strPfad As String
strPfad = "G:\Departments\PD\5S - MSC\WAREHOUSE\Umsetzung\Pictures\EditDSCF9682.JPG"
MsgBox "1. Auftreten = " & Split(strPfad, "\")(0)
MsgBox "2. Auftreten = " & Split(strPfad, "\")(1)
MsgBox "3. Auftreten = " & Split(strPfad, "\")(2)
MsgBox "4. Auftreten = " & Split(strPfad, "\")(3)
MsgBox "1. - 4. Teil = " & Join(Array(Split(strPfad, "\")(0), Split(strPfad, "\")(1), Split( _
strPfad, "\")(2), Split(strPfad, "\")(3)), "\")
' Die gute alte Methode mit Instr, InstrRev, Left, Right, Mid geht natürlich auch immer.
' Finde ich persönlich aber unübersichtlicher.
' Nur das Laufwerk
MsgBox "Nur Laufwerk = " & Left(strPfad, InStr(strPfad, "\"))
' Laufwerk und erster Teil
MsgBox "Laufwerk und 1. Teil = " & Left(strPfad, InStr(InStr(strPfad, "\") + 1, strPfad, "\"))
' Laufwerk erster und zweiter Teil
MsgBox "Laufwerk 1. und 2. Teil = " & Left(strPfad, InStr(InStr(InStr(strPfad, "\") + 1, _
strPfad, "\") + 1, strPfad, "\"))
' Dateinamen oder letzten Teil abschneiden
MsgBox "Dateinamen oder letzten Teil abschneiden = " & Left(strPfad, InStrRev(strPfad, "\"))
End Sub
Gruß Heiko