Office VBA教程:SearchSubFolders属性

如果搜索范围包括LookIn属性指定的文件夹中的所有子文件夹,则返回 True。Boolean 类型,可读写。

VBA示例

本示例可实现的功能为:在“My Documents”文件夹及其所有子文件夹中查找文件名以“Cmd”开头的文件,并显示查找到的每个文件的文件名及其所在位置。


Set fs = Application.FileSearch
With fs
    .LookIn = "C:\My Documents"
    .SearchSubFolders = True
    .FileName = "cmd*"
    If .Execute() > 0 Then
        MsgBox "There were " & .FoundFiles.Count & _
         " file(s) found."
        For i = 1 To .FoundFiles.Count
            MsgBox .FoundFiles(i)
        Next i
    Else
        MsgBox "There were no files found."
    End If
End With

上页:Office VBA教程:SearchScopes属性 下页:Office VBA教程:SearchWhenProgramming属性

Office VBA教程:SearchSubFolders属性

Office VBA教程:SearchWhenProgramming属性 Office VBA教程:SecondValue属性
Office VBA教程:SelectedItems属性 Office VBA教程:Shape属性
Office VBA教程:ShortcutText属性 Office VBA教程:SignDate属性
Office VBA教程:Signer属性 Office VBA教程:Sounds属性
Office VBA教程:State属性 Office VBA教程:Style属性
Office VBA教程:Table属性 Office VBA教程:Tag属性
Office VBA教程:Text属性 Office VBA教程:TextOrProperty属性
Office VBA教程:TipOfDay属性 Office VBA教程:Title属性
Office VBA教程:TooltipText属性 Office VBA教程:Top属性
Office VBA教程:Type属性 Office VBA教程:Value属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号