Office VBA教程:FoundFiles对象

FileSearch
PropertyTests (PropertyTest)
FoundFiles

代表由文件查找过程返回的文件列表。

使用 FoundFiles对象

用 FoundFiles属性可返回 FoundFiles对象。本示例可实现:逐个查看找到的文件列表中的文件并显示其中每个文件的文件名和路径。用 FoundFiles(index) 可返回查找过程中指定文件的名称和位置,此处的 index 是该文件的索引号。


With Application.FileSearch
    For i = 1 To .FoundFiles.Count
        MsgBox .FoundFiles(i)
    Next I
End With

Execute方法可开始文件查找过程,并更新 FoundFiles对象。以下示例可实现:在“My Documents”文件夹中查找所有文件名以“Cmd”开头的文件,并显示找到的每个文件的位置和文件名。该示例还可实现:对返回的文件按文件名的字母升序排序。


Set fs = Application.FileSearch
With fs
    .LookIn = "C:\My Documents"
    .FileName = "cmd*"
    If .Execute(SortBy:=msoSortbyFileName, _
    SortOrder:=msoSortOrderAscending) > 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教程:FileTypes集合 下页:Office VBA教程:HTMLProject对象

Office VBA教程:FoundFiles对象

Office VBA教程:HTMLProject对象 Office VBA教程:HTMLProjectItem对象
Office VBA教程:HTMLProjectItems集合对象 Office VBA教程:LanguageSettings对象
Office VBA教程:MsoEnvelope对象 Office VBA教程:NewFile对象
Office VBA教程:ODSOColumn对象 Office VBA教程:ODSOColumns对象
Office VBA教程:ODSOFilter对象 Office VBA教程:ODSOFilters对象
Office VBA教程:OfficeDataSourceObject对象 Office VBA教程:PropertyTest对象
Office VBA教程:PropertyTests集合对象 Office VBA教程:ScopeFolder对象
Office VBA教程:ScopeFolders集合 Office VBA教程:Script对象
Office VBA教程:Scripts集合对象 Office VBA教程:SearchFolders集合
Office VBA教程:SearchScope对象 Office VBA教程:SearchScopes集合
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号