Feedback

VB - Explorerpfad auf gültiges Format prüfen

Veröffentlicht von am 03.07.2006
(2 Bewertungen)
Diese Funktion prüft ein angegebenen Pfad ob dieser auch gültig ist bzw. ein gültiges Format hat. Bin mir nicht sicher ob das auch mit RegularExpressions geht wegen der variablen Pfadlänge
Public Function ValidDirPath(ByVal Path As String) As Boolean
    Dim ASCValue As Integer = Asc(UCase(Mid(Path, 1, 1)))
    If InStr(Path, "\\") = 0 And InStr(Path, "/") = 0 And InStr(Path, "*") = 0 And InStr(Path, "?") = 0 And InStr(Path, """") = 0 And InStr(Path, "<") = 0 And InStr(Path, ">") = 0 And InStr(Path, "|") = 0 Then
        If ASCValue >= 65 And ASCValue <= 90 Then
            If Mid(Path, 2, 2) = ":\" Then
                Return True
            Else
                Return False
            End If
        Else
            Return False
        End If
    Else
        Return False
    End If
End Function
Abgelegt unter Pfad, Dateipfad.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!