[分享]搜索指定文件夹中的文件

fan0217

FileSearch对象是Office系统在2002版本新增加的对象。用FileSearch 属性可返回 FileSearch 对象，可实现查找指定文件并显示找到的文件数及每个找到的文件的标题。

With Application.FileSearch
    .NewSearch
    .LookIn = "C:\My Documents"
    .SearchSubFolders = True
    .FileName = "Run"
    .MatchTextExactly = True
    .FileType = msoFileTypeAllFiles
End With

使用注意:     需要引用Microsoft Office 10.0 Object Library 或更高版本

更多帮助信息参考：FileSearch对象

游客，如果您要查看本帖隐藏内容请回复

[此贴子已经被作者于2006-7-11 22:29:14编辑过]

andymark

支持搜索文件夹中所有子文件夹的文件 那就更好

qlm

支持一下，

我记得论坛里有个ACCESS病毒，可以搜索其下所有子目录的ACCESS文件，应该也可以搜索所有的其它文件吧

yuanrongfa

非常感谢，马上收藏

yuanrongfa

请问版主我用的是access2000能否使用这个功能？

是不是如果你上传那个dll文件，我就可以在access下使用的了

bdchx

谢谢!

Function GetFolder() As String
Dim dlgOpen As FileDialog
Set dlgOpen = Application.FileDialog(msoFileDialogOpen)
    With dlgOpen
        .AllowMultiSelect = False
        .Show
    End With
    If dlgOpen.SelectedItems.Count > 0 Then
        GetFolder = dlgOpen.SelectedItems(1)
    Else
        GetFolder = ""
    End If
Set dlgOpen = Nothing
End Function

返回文件名;

yedaoan

但是在RUNTIME下无法使用,可惜

huangyz_xy

马上收藏

75501241

[em01]

huangqinyong

thanks.........