如何检测客户端某文件是否存在？？？先谢了

Question

Public Function CheckFileExist(filename$) As Integer
'*********************************************************
'* 名称：CheckFileExist(filename$)
'* 功能：此函数用于判断文件是否存在
'* 用法：CheckFileExist('文件名称')
'* 文件不存在返回 0
'*********************************************************
    Dim I As Integer
    CheckFileExist = Str$(SHFileExists(filename$))  'Str$值只有两种可能，(1存在,0不存在)
'    If i = 0 Then 'Str$值只有两种可能，(0存在,1不存在)
'        Text2.Text = "文件不存在"
'    Else
'        Text2 = "文件存在"
'    End If
End Function