Pfad bzw. String trennen
14.03.2019 21:50:16
Noureddine
ich benötige eure Hilfe. Ich versuche schon die ganze Zeit meinen Pfad den ich über Application.GetOpenFilename auswähle zu trennen. Dabei möchte ich den Hauptpfad, den Dateinamen und die Dateiendung separat in eine Textbox eintragen lassen. Ich bin bereits so weit gekommen, dass ich die Endung und den Hauptpfad getrennt bekommen habe. Leider gelingt mir dies nicht bei dem Dateinamen. Ich habe hier meinen Code hinterlegt, mit der Hoffnung, dass ihr mir hier helfen könnt. Vielen Dank vorab!
Private Sub cmd_Dateiname_Durchsuchen_Click()
Dim intPos As Integer
Dim intPos2 As Integer
Dim strPfad As Variant
Dim strDateipfad As Variant
Dim strDateiname As Variant
Dim strDateiname2 As Variant
Dim strDateiendung As Variant
strPfad = Application.GetOpenFilename
intPos = InStrRev(strPfad, "\")
intPos2 = InStrRev(strPfad, ".")
strDateipfad = Left(strPfad, intPos)
strDateiname = Mid(strPfad, intPos + 1)
strDateiname2 = Mid(strDateiname, InStr(1, StrReverse(strDateiname), ".") - 1)
strDateiendung = Mid(strPfad, intPos2)
If strPfad False Then
txt_Dateipfad = strDateipfad
txt_Dateiname = strDateiname2
cb_Version = strDateiendung
End If
Anzeige