如何不让 DIR函数 区分大小写？

Question

    If Dir(CD1.FileName) <> "" Then
         MsgBox "该数据库已存在", 16, "库检查"
         Exit Sub
    End If

Answer 1

dir 函数本来就是不区分大小写的.

Answer 2

    If Dir(UCase(CD1.FileName)) <> "" Then 
        MsgBox "该数据库已存在", 16, "库检查" 
        Exit Sub 
    End If 

Answer 3

我猜lz遇到的问题不是dir函数区分大小写,而是字符串区分大小写Dim strfilename As String
strfilename = "C:\Documents and Settings\li\My Documents\test.mdb"If UCase(Dir(strfilename)) = UCase("TEST.mdb") Then    MsgBox ("ok")
End If

Answer 4

If Dir(UCase(CD1.FileName)) <> "" Then 
        MsgBox "该数据库已存在", 16, "库检查" 
        Exit Sub 
    End If If Dir((CD1.FileName) <> "" Then 
        MsgBox "该数据库已存在", 16, "库检查" 
        Exit Sub 
    End If 两段代码的结果是一样的.函数dir的参数是不区分大小写的.