如何避免FtpFindFirstFile区分大小写？？？？

[hmcentury]

我写了一个函数用来判断ftp上是否有对应文件，代码如下。但是该段代码不能区别文件的大小写，例如ftp上有一个文件“tj.dwg”,而我判断是否存在“TJ.dwg”或者“tj.Dwg”等的时候，FtpFindFirstFile会指示不能找到该文件，请问应该怎么处理这种情况？还有什么办法准确判断ftp上的文件是否存在？
‘--------------------------------------------
Public Function FileExist() As Boolean
On Error Resume Next
'建立连接
hOpen = InternetOpen(scUserAgent, 1, vbNullString, vbNullString, 0)
hConnection = InternetConnect(hOpen, strServer, 0, strUser, strPassword, 1, 0, 0)
bret = FtpFindFirstFile(hConnection, szFileRemote, pData, 1, 0)
'MsgBox ("bret=" & bret)
If Not bret Then
FileExist = False
Call CloseConn
Exit Function
End If
'关闭连接
Call CloseConn
FileExist = True
End Function