vb 中是否有查找硬盘中文件的函数？

Question

vb 中是否有查找硬盘中文件的函数？，请post上来一个，先谢那！

Answer 1

dir 是dos下的吧，没有像findfile(filename:string)?

Answer 2

就是DIR,TRY:： MSGBOX DIR("C：\WINDOWS\WIN.INI")

Answer 3

a1=dir("c:\123.txt")
if a1<>"" then 

Answer 4

注意:Dir函数是区分文件属性的,如:隐藏属性或系统属性
如:
If Dir("c:\io.sys", vbHidden + vbSystem) <> "" Then End

Answer 5

你也可以使用FSO对象模型中相关的对象的方法或属性(不区分文件属性)

Answer 6

用下面的专用函数
本函数返回查找的文件是否存在。Function FileExist(Filename as string) as Boolean
FileExist = Iif(Dir(Filename) <> "", True, False)
End Function 

Answer 7

自己写了函数(判断一个文件或者文件夹FileOrFolderName在路径path下是否存在?)
Public Function IfExistFileOrFolder(path As String, FileOrFolderName As String) As Boolean
Dim fso As New FileSystemObject
Dim folder As folder
Dim subfolder As folder
Dim file As file
Set folder = fso.GetFolder(path)
IfExistFileOrFolder = FalseIf folder.Files.Count > 0 Then
    For Each file In folder.Files
        If file.Name = FileOrFolderName Then
            IfExistFileOrFolder = True
            Exit Function
        End If
    Next file
End IfIf folder.SubFolders.Count > 0 Then
    For Each subfolder In folder.SubFolders
        If subfolder.Name = FileOrFolderName Then
            IfExistFileOrFolder = True
            Exit Function
        Else
            Call IfExistFileOrFolder(subfolder.path, True)
        End If
    Next subfolder
End IfEnd Function