Prüfen ob Pfadangabe korrekt mit Backslash

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Dir(TextBox1, vbDirectory) = "" Then MsgBox "Das ist kein Pfad" TextBox1.SetFocus End If If Right(TextBox1, 1) <> "\" Then TextBox1 = TextBox1 & "\" End Sub

Hi, ich nochmal.
Wie versprochen hier meine Lösung.

Option Explicit
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim Pfad As Variant, i As Integer
If Mid(TextBox1.Text, 3, 1) = "\" Then Exit Sub
If Len(TextBox1.Text) > 3 Then
    For i = 1 To Len(TextBox1.Text)
        If i = 3 Then
            Pfad = Pfad & "\" & Mid(TextBox1.Text, i, 1)
        Else
            Pfad = Pfad & Mid(TextBox1.Text, i, 1)
        End If
    Next
    Range("E23") = Pfad
Else
    Range("E23") = TextBox1.Text & "\"
End If
End Sub
Mit dem Code wird wenn in der TextBox ein Text mit mehr als drei Buchstaben vorhanden sind und an der 3. Stelle kein Backslash vorhanden ist dieses Zeichen hinzugefügt. Besteht der Text aus nur 2 Zeichen wird am Ende ein Backslash angefügt.
So müsste es eigentlich funktionieren. Sollte jemand ein fehler finden, so bitte ich darum dies hier zu melden, damit ich das dann nochmal abändern kann.
Gruß, Kasimir

Hallo,
eine korrekte Pfad-Angabe muß folgenden Bedingungen genügen:
a) an 2. und 3. Stelle steht ":\"
b) am Ende steht "\"
c) folgende Zeichen dürfen nicht vorhanden sein: ?*"|:/
dh. ich würde eine Pfadprüfung so ablaufen lassen:


Sub PfadPrüfung()
Dim VerboteneZeichen, Pfad As String
Dim i As Long
Dim PfadOK As Boolean
Do
Pfad = InputBox("")
PfadOK = True
'----Prüfung Laufwerk
If Mid(Pfad, 2, 2) <> ":\" Then
PfadOK = False
MsgBox ("Laufwerksbezeichnung nicht korrekt")
End If
'---- Prüfung Verbotene Zeichen
VerboteneZeichen = "<>|*:/" & Chr(34)
For i = 1 To Len(VerboteneZeichen)
If InStr(Mid(Pfad, 3), Mid(VerboteneZeichen, i, 1)) <> 0 Then
MsgBox ("Verbotenes Zeichen " & VerboteneZeichen & " entdeckt")
PfadOK = False
Exit For
End If
Next
'---- Prüfung  Pfadende
If Right(Pfad, 1) <> "\" Then Pfad = Pfad & "\"
Loop Until PfadOK Or Pfad = "xxx"
MsgBox ("Sie haben einen korrekten Pfad eingegeben." & Chr(10) & Pfad)
End Sub

das xxx habe ich eingebaut, damit man die


Sub verlassen kann, falls man sich in einer Endlosschleife fängt
Gruß, Daniel

Beliebteste Forumthreads (12 Monate)

Prüfen ob Pfadangabe korrekt mit Backslash

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Prüfen ob Pfadangabe korrekt mit Backslash

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread