检查输入的文件夹名、文件名是否符合Windows的命名规则

时　间:2019-01-10 16:02:40
作　者:易勋   ID：35404  城市：上海
摘　要:在某些时候，通过代码创建文件夹或者文件的时候，因为名称中含有非法字符，导致运行时报错。
正　文:

这样的情况，可以在创建前，先对文件夹名称、文件名称进行有效性检测：

Public Function CheckFolderName(FolderName As String) As Boolean
    Dim lngLen As Long
    CheckFolderName = True
    lngLen = Len(FolderName)
    If (Len(Replace(FolderName, "\", "")) <> lngLen) Then CheckFolderName = False
    If (Len(Replace(FolderName, "/", "")) <> lngLen) Then CheckFolderName = False
    If (Len(Replace(FolderName, ":", "")) <> lngLen) Then CheckFolderName = False
    If (Len(Replace(FolderName, "*", "")) <> lngLen) Then CheckFolderName = False
    If (Len(Replace(FolderName, "?", "")) <> lngLen) Then CheckFolderName = False
    If (Len(Replace(FolderName, "<", "")) <> lngLen) Then CheckFolderName = False
    If (Len(Replace(FolderName, ">", "")) <> lngLen) Then CheckFolderName = False
    If (Len(Replace(FolderName, "|", "")) <> lngLen) Then CheckFolderName = False
    If (Len(Replace(FolderName, """", "")) <> lngLen) Then CheckFolderName = False
End Function

调用方法：

    If Not CheckFolderName("文件夹名或文件名") Then
        MsgBox "不能包含：\ / : * ? < > | " & """"
    End If