Is Valid Path?

Function IsValidPath (FilePath)

    Dim regEx

    Set regEx = New RegExp
    regEx.Pattern = "[\x00-\x1F\<\>\""\%\*\?\']"   'Strict Subset
    IsValidPath = (not regEx.Test ( FilePath )) and (trim(FilePath) <> "") and len(trim(FilePath)) <= 253

End function