如果判断一个文件名是否合法呢？

Question

如题，我如何判断一个文件名是否合法呢？

Answer 1

Option ExplicitPrivate Sub Command1_Click()
    debug.print TestFileName ("aa1*.txt")
    debug.print TestFileName ("aa1.txt")
End Sub
Private Function TestFileName(strFileName As String) As Boolean
    On Error GoTo errHandle
    Dim FileNumber As Integer
    FileNumber = FreeFile
    Open "c:\temp\" & strFileName For Output As #FileNumber
    Close #FileNumber
    Kill "c:\temp\" & strFileName
    TestFileName = True
    Exit Function
errHandle:
    TestFileName = False
End Function

Answer 2

windows有自己的文件夹命名规则
你可以建立一个不符合规则的文件夹,这时候系统会提示你名字里不能有哪些字符,然后你判断就行了