请问如何在VB中查找文件？？？急~~

Question

请教高手：如何在VB中查找一个文件~？

Answer 1

if dir "c:\1" <> 0
then
msgbox "该目录已经存在"
else
msgbox "目录不存在"
end if

Answer 2

if dir "c:\1" <> 0
then
msgbox "该目录已经存在"
else
msgbox "目录不存在"
end if
什么意思呀

Answer 3

把下列代码存成.vbs文件，然后运行即可dim FNameSet WshShell = WScript.CreateObject("WScript.Shell")sub hk(specf)
    on error resume next
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.Getfolder(specf)
    set ga=f.files
        for each kkk in ga
         if kkk.name=FName then '如果文件名是你要查找的
    msgbox kkk.path'则显示其路径
 end if
        next
    set nextfolders = f.subfolders
    for each subfolder in nextfolders'递归调用
        hk subfolder
    next
end subsub hkdrivers'搜索本地硬盘
   on error resume next
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set dc = fso.Drives
   For Each d in dc
       hk d & "\"
   Next
End subFName=inputbox("请输入你要查找的文件名")
hkdrivers