谁有文件搜索的代码啊？有急用，救命！

Question

文件搜索的代码，支持文件名模糊查找！

Answer 1

递归调用dir函数即可，具体的代码，你用google自己搜索吧，有很多

Answer 2

dir函数可以支持文件名模糊查找吗？

Answer 3

'引用FSO("工程"->"引用"->Microsoft Scripting Runtime)Private Sub Command1_Click()
    SearchFolder "d:\" '搜索D盘下所有文件的名称
End SubSub SearchFolder(ByVal Folder As String)
    Dim fso As New FileSystemObject
    Dim objFile, objFolder
    
    Set objFolder = fso.GetFolder(Folder)
    For Each objFile In objFolder.Files
        Debug.Print objFile.Name '打印文件名
    Next
    For Each objFolder In objFolder.SubFolders
        SearchFolder objFolder '递归遍历整颗树
    Next
End Sub

Answer 4

'引用FSO("工程"->"引用"->Microsoft Scripting Runtime)Private Sub Command1_Click()
    SearchFolder "d:\","test" '搜索D盘下所有文件名包含test的文件
End SubSub SearchFolder(ByVal Folder As String,ByVal strTemp As String)
    Dim fso As New FileSystemObject
    Dim objFile, objFolder
    
    Set objFolder = fso.GetFolder(Folder)
    For Each objFile In objFolder.Files
        If InStr(objFile.Name,strTemp)<>0 Then Debug.Print objFile.Name '如果文件名包含有strTemp则打印文件名
    Next
    For Each objFolder In objFolder.SubFolders
        SearchFolder objFolder '递归遍历整颗树
    Next
End Sub

Answer 5

不好意思，上面的少了个参数'引用FSO("工程"->"引用"->Microsoft Scripting Runtime)Private Sub Command1_Click()
    SearchFolder "d:\","test" '搜索D盘下所有文件名包含test的文件
End SubSub SearchFolder(ByVal Folder As String,ByVal strTemp As String)
    Dim fso As New FileSystemObject
    Dim objFile, objFolder
    
    Set objFolder = fso.GetFolder(Folder)
    For Each objFile In objFolder.Files
        If InStr(objFile.Name,strTemp)<>0 Then Debug.Print objFile.Name '如果文件名包含有strTemp则打印文件名
    Next
    For Each objFolder In objFolder.SubFolders
        SearchFolder objFolder,strTemp '递归遍历整颗树
    Next
End Sub

Answer 6

用dir函数，还支持文件匹配，*和？
和操作DOS差不多。