Feedback

Explorerpfad auf gültiges Format prüfen

VB - Tim Hartwig Juli 3, 2006
0 Ratings 0/5 
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

Alte URL: /snippet/explorerpfad-auf-gueltiges-format-pruefen/124