【请教】用VB6如何实现这个功能？

Question

就是有一个COMMAND1，当我点击这个按钮后，系统会对“D:\123\pic”文件夹进行查找，
如果发现该文件夹下存在名为“abc.jpg”的文件，就会跳出一个MSGBOX告知存在，
如果没有找到就告知不存在。就是这个查找的功能，用VB6如何实现呢？？谢谢各位！！！！！！！！

Answer 1

Private Sub Command1_Click()
If Dir("D:\123\pic\abc.jpg") = "" Then
    MsgBox "no"
Else
    MsgBox "yes"
End If
End Sub

Answer 2

if len(dir("d:\123\pic\abc.jpg") = 0 then
    msgbox "没有找到"
else
    msgbox dir("d:\123\pic\abc.jpg")
end if

Answer 3

Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal lpszPath As String) As Long隐藏文件也能找到，返回零表示没有找到文件，否则找到