本专题主要讲述使用VBA操作文件和文件夹的相关知识，尽量不涉及对文件中具体内容的操作。如何操作文件中具体内容的知识，将在后续内容外部数据操作中作详细介绍。
Excel VBA提供了一些方法和对象，能够调用Excel内置对话框来进行文件操作。
GetOpenFilename方法
使用GetOpenFilename方法能够获得有效的文件名，包括该文件的完整路径。此时，将显示标准的“打开”对话框，但并不真正打开指定的文件，而是返回包含用户所选文件的文件名和路径的字符串。其语法如下：
object.GetOpenFilename (FileFilter,FilterIndex,Title,ButtonText,MultiSelect)
所有参数均可选。其中，参数FileFilter代表指定文件筛选条件的字符串，即确定出现在在“打开”对话框中“文件类型”下拉列表中的内容，由文件筛选字符串和通配符表示的文件筛选规则说明组成，其中每一部分和每一对都用逗号隔开。如果省略，则该参数的的默认值为：
该字符串的第一部分（All Files (*.*)）是显示在“文件类型”下拉列表中的文本，第二部分（*.*）实际上确定要显示哪些文件。
下面的指令将一个字符串赋值给名为Filt的变量，然后可以用作GetOpenFilename方法的参数FileFilter的值。
Filt = "Text Files (*.txt),*.txt," & _
"Lotus Files (*.prn),*.prn," & _
"Comma Separated Files (*.csv),*.csv," & _
"ASCII Files (*.asc),*.asc," & _
"All Files (*.*),*.*"此时，“打开”对话框允许用户从5种文件类型中选择。
提示：使用换行符将长语句分成多行，有助于代码阅读。
参数FilterIndex代表默认的文件筛选条件的索引号，用于指定在“文件类型”框中显示的文件类型。
参数Title代表对话框的标题，如果省略该参数，则标题为“打开”。
参数ButtonText只用于Macintosh机。
参数MultiSelect用于指定是否能够选择多个文件名，如果为True则能够选中多个文件名，所有这些文件将返回到一个数组中。默认值为False。
Sub GetImportFileName()
Dim Filt As String
Dim FilterIndex As Integer
Dim Title As String
Dim FileName As Variant
'创建文件筛选列表
Filt = "Text Files (*.txt),*.txt," & _
"Lotus Files (*.prn),*.prn," & _
"Comma Separated Files (*.csv),*.csv," & _
"ASCII Files (*.asc),*.asc," & _
"All Files (*.*),*.*"
'默认显示*.*
FilterIndex = 5
'设置对话框标题
Title = "Select a File to Import"
'获取文件名
FileName = Application.GetOpenFilename _
(FileFilter:=Filt, _
FilterIndex:=FilterIndex, _
Title:=Title)
'如果取消对话框则退出
If FileName = False Then
MsgBox "No file was selected."
Exit Sub
End If
'显示文件的完整路径和名称
MsgBox "You Selected " & FileName
End Sub下面的代码与上述代码类似，区别在于用户可以按Ctrl键或者Shift键选择多个文件。
Sub GetImportFileName2()
Dim Filt As String
Dim FilterIndex As Integer
Dim Title As String
Dim FileName As Variant
Dim i As Integer
Dim Msg As String
'创建文件筛选列表
Filt = "Text Files (*.txt),*.txt," & _
"Lotus Files (*.prn),*.prn," & _
"Comma Separated Files (*.csv),*.csv," & _
"ASCII Files (*.asc),*.asc," & _
"All Files (*.*),*.*"
'默认显示*.*
FilterIndex = 5
'设置对话框标题
Title = "Select a File to Import"
'获取文件名
FileName = Application.GetOpenFilename _
(FileFilter:=Filt, _
FilterIndex:=FilterIndex, _
Title:=Title, _
MultiSelect:=True)
'如果取消对话框则退出
If Not IsArray(FileName) Then
MsgBox "No file was selected."
Exit Sub
End If
'显示文件的完整路径和名称
For i = LBound(FileName) To UBound(FileName)
Msg = Msg & FileName(i) & vbCrLf
Next i
MsgBox "You Selected: " & vbCrLf & Msg
End Sub此时，变量FileName是一个数组。该过程通过判断FileName变量是否是数组，检测用户是否单击了“取消”按钮。如果没有单击“取消”按钮，那么结果至少是由一个元素组成的数组。
GetSaveAsFilename方法
GetSaveAsFilename方法与GetOpenFilename方法类似，但它显示的是“另存为”对话框，允许用户选择或者指定某文件。该方法返回一个文件名及其路径，但不会发生任何动作。其语法为：
object.GetSaveAsFilename (InitialFilename,FileFilter,FilterIndex,Title,ButtonText)
所有参数均为可选参数。其中，参数InitialFilename指定希望使用的文件名称；参数FileFilter是指定文件筛选条件的字符串；FilterIndex指定默认文件筛选条件的索引号；参数Title指定对话框的标题；参数ButtonText用于Macintosh机。
FileDialog对象
FileDialog对象允许通过指定InitialFileName属性的值来指定起始目录，但是只能在Excel 2002或更高版本的Excel中使用FileDialog对象。
提示：因为FileDialog对象是在Excel 2002中才引入的，因此只能在Excel 2002及以后的Excel版本中使用该对象。
下面的过程显示一个对话框，允许用户选中某个目录，然后使用MsgBox函数显示出所选目录的名称，或者显示取消的信息。
Sub GetAFolder()
'仅适用于Excel 2002或更高版本
With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = Application.DefaultFilePath & "\"
.Title = "Please select a location for the backup"
.Show
If .SelectedItems.Count = 0 Then
MsgBox "Canceled"
Else
MsgBox .SelectedItems(1)
End If
End With
End Sub本例中，使用Excel的默认文件路径作为起始目录。
FileSearch对象
（以下来源于VBA帮助）
代表“文件”菜单中“打开”对话框的功能。使用FileSearch属性可以返回FileSearch 对象。
本示例创建一个FoundFiles对象，该对象代表My Documents文件夹中的所有Microsoft Excel工作簿。
With Application.FileSearch
.LookIn = "c:\my documents"
.FileType = msoFileTypeExcelWorkbooks
.Execute
End With以下示例可实现：查找指定文件并显示找到的文件数及每个找到的文件的名称。
With Application.FileSearch
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使用NewSearch方法可以将搜索条件重新设置为默认设置。所有属性值在每次搜索过程后仍然保持不变，用NewSearch方法可有选择地为下一次文件搜索过程设置属性，而无须手动重新设置原先的属性值。以下示例可实现：在开始新的一轮搜索之前将搜索条件重新设置为默认设置。
With Application.FileSearch
.NewSearch
.LookIn = "C:\My Documents"
.SearchSubFolders = True
.FileName = "Run"
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles
End WithFileName属性
返回或设置文件搜索过程中要查找的文件名。文件名中可以包含 *（星号）或 ?（问号）通配符。问号通配符可以匹配任意一个单个字符。如键入“gr?y”可以匹配“gray”和“grey”。星号通配符可以匹配任意个字符。如键入“*.txt”可以查找到所有带.TXT扩展名的文件。String 类型，可读写。
本示例搜索My Documents文件夹中所有以“cmd”开头的文件，并显示查找到的每一个文件的名称和位置。
Set fs = Application.FileSearch
With fs
.LookIn = "C:\My Documents"
.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 WithFileType属性
返回或设置文件搜索过程中要查找的文件类型。可读写，MsoFileType常量。MsoFileType 可为以下 MsoFileType 常量之一：msoFileTypeAllFiles、msoFileTypeBinders、msoFileTypeCalendarItem、msoFileTypeContactItem、msoFileTypeCustom、msoFileTypeDatabases、msoFileTypeDataConnectionFiles、msoFileTypeDesignerFiles、msoFileTypeDocumentImagingFiles、msoFileTypeExcelWorkbooks、msoFileTypeJournalItem、msoFileTypeMailItem、msoFileTypeNoteItem、msoFileTypeOfficeFiles、msoFileTypeOutlookItems、msoFileTypePhotoDrawFiles、msoFileTypePowerPointPresentations、msoFileTypeProjectFiles、msoFileTypePublisherFiles、msoFileTypeTaskItem、msoFileTypeTemplates、msoFileTypeVisioFiles、msoFileTypeWebPages。
msoFileTypeWordDocuments常量msoFileTypeOfficeFiles包含以下任意扩展名的文件：*.doc、*.xls、*.ppt、*.pps、* obd、*.mdb、*.mpd、*.dot、*.xlt、*.pot、*.obt、*.htm 或 *.html。
本示例可实现的功能为：搜索位于“My Documents”文件夹中的所有“活页夹”文件，然后在消息框中显示找到的每个文件的文件名及其所在位置。
Set fs = Application.FileSearch
With fs
.LookIn = "C:\My Documents"
.FileType = msoFileTypeBinders
If .Execute > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" Binder file(s) found."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no Binder files found."
End If
End WithFileTypes 属性
返回一个FileTypes集合。
本示例搜索 C:\ 驱动器上的所有 HTML 和 Microsoft Excel 文件。
Sub SearchForFiles()
'Declare a variable to act as a generic counter.
Dim lngCount As Long
'Use a With...End With block to reference the
'FileSearch object.
With Application.FileSearch
'Clear all the parameters of the previous searches.
'This method doesn't clear the LookIn property or
'the SearchFolders collection.
.NewSearch
'Setting the FileType property clears the
'FileTypes collection and sets the first
'item in the collection to the file type
'defined by the FileType property.
.FileType = msoFileTypeWebPages
'Add a second item to the FileTypes collection.
.FileTypes.Add msoFileTypeExcelWorkbooks
'Display the number of FileTypes objects in the collection.
MsgBox "You are about to search for " & .FileTypes.Count & _
" file types."
'Set up the search to look in all subfolders on the C:\ drive.
.LookIn = "C:\"
.SearchSubFolders = True
'Execute the search and test to see if any files
'were found.
If .Execute <> 0 Then
'Display the number of files found.
MsgBox "Files found: " & .FoundFiles.Count
'Loop through the list of found files and
'display the path of each one in a message box.
For lngCount = 1 To .FoundFiles.Count
If MsgBox(.FoundFiles.Item(lngCount), vbOKCancel, _
"Found files") = vbCancel Then
'Break out of the loop
lngCount = .FoundFiles.Count
End If
Next lngCount
Else
MsgBox "No files found."
End If
End With
End SubFileTypes 集合
msoFileType类型值的集合，决定FileSearch对象的Execute方法返回的文件类型。使用FileSearch对象的FileTypes属性返回一个FileTypes集合。例如：
Set ft = Application.FileSearch.FileTypes
注释:FileSearch对象的FileType属性清除FileTypes集合，并将集合中的第一项设置为FileType属性定义的文件类型。
所有搜索只有一个FileTypes集合，因此在执行搜索之前清除FileTypes集合很重要，除非希望搜索上次搜索的文件类型。清除集合的最简便方法是将FileType属性设置为要搜索的第一种文件类型。还可以使用Remove方法删除单个类型。要确定集合中每项的文件类型，请使用Item方法返回msoFileType值。
本示例在FileTypes集合中循环，并删除所有非Microsoft Word或Microsoft Excel文件的文件类型（通常，清除FileTypes集合再从头开始更简便）。
Sub RemoveFileTypeFromCollection()
'Define an integer to use as a counter
'when iterating through the FileTypes collection.
Dim intFileIndex As Integer
'Use a With...End With block to reference the FileSearch object.
With Application.FileSearch
'Loop through all of the items in the FileTypes collection.
intFileIndex = 1
Do While intFileIndex <= .FileTypes.Count
Select Case .FileTypes.Item(intFileIndex)
Case msoFileTypeWordDocuments, msoFileTypeExcelWorkbooks
Case Else
'If the file type isn't a Microsoft Word or
'Microsoft Excel file, remove it.
.FileTypes.Remove intFileIndex
'Decrement the counter so that no file types are missed.
intFileIndex = intFileIndex - 1
End Select
'Increment the counter to test the next file type.
intFileIndex = intFileIndex + 1
Loop
End With
End SubFoundFiles 属性
返回一个FoundFiles对象，该对象包括一次查找操作中找到的所有文件的文件名。只读。本示例可实现的功能为：逐个查看找到的文件列表中的每个文件，并显示各文件的路径。
With Application.FileSearch
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
End WithLastModified 属性
返回或设置一个表示指定文件自上次修改和保存以来的时间量的常量。 默认值为msoLastModifiedAnyTime。MsoLastModified类型，可读写。
MsoLastModified可为下列MsoLastModified常量之一：msoLastModifiedAnyTime、msoLastModifiedLastMonth、msoLastModifiedLastWeek、msoLastModifiedThisMonth、msoLastModifiedThisWeek、msoLastModifiedToday、msoLastModifiedYesterday。
本示例可实现的功能为：为文件查找过程设置选项。该查找过程返回的是“C:\My Documents”文件夹或其子文件夹中，昨天修改过的文件。
Set fs = Application.FileSearch
With fs
.LookIn = "C:\My Documents"
.SearchSubFolders = True
.LastModified = msoLastModifiedYesterday
End WithLookIn 属性
返回或设置在指定的文件搜索过程中要搜索的文件夹。String类型，可读写。
MatchAllWordForms 属性
如果文件查找范围扩展到在文件正文或文件属性中出现的指定单词的所有形式，则返回True。Boolean类型，可读写。
说明 该属性只有在安装并注册文件“Mswds_en.lex”后才有效。注意：在“典型”安装过程中不会安装该文件。
本示例可实现的功能为：返回所有在文件正文或文件属性中包含单词“run”、“running”、“runs”或“ran”的文件。TextOrProperty 属性设置需匹配的单词，并将查找范围限制在文件正文或文件属性中。
With Application.FileSearch
.NewSearch
.LookIn = "C:\My Documents"
.SearchSubFolders = True
.TextOrProperty = "run"
.MatchAllWordForms = True
.FileType = msoFileTypeAllFiles
End WithMatchTextExactly 属性
如果仅查找这样的文件，其文件正文中或文件属性中包括指定单词或短语的完全匹配形式，则返回True。Boolean类型，可读写。
本示例可实现的功能为：搜索“C:\My Documents”文件夹并返回所有在文件正文或文件属性中包含单词“Run”的文件。
With Application.FileSearch
.NewSearch
.LookIn = "C:\My Documents"
.TextOrProperty = "Run"
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles
End WithPropertyTests 属性
返回一个PropertyTests集合，该集合代表一个文件查找过程的所有搜索条件。只读。
本示例可实现的功能为：显示属性测试集合中第一个属性测试过程的所有搜索条件。
With Application.FileSearch.PropertyTests(1)
myString = "This is the search criteria: " _
& " The name is: " & .Name & ". The condition is: " _
& .Condition
If .Value <> "" Then
myString = myString & ". The value is: " & .Value
If .SecondValue <> "" Then
myString = myString _
& ". The second value is: " _
& .SecondValue & ", and the connector is" _
& .Connector
End If
End If
MsgBox myString
End WithPropertyTests 集合对象
代表一个文件搜索条件。搜索条件列在“查找”对话框中（单击“文件”菜单中的“打开”命令，然后单击“查找”按钮）。PropertyTest对象是PropertyTests集合中的成员。
用PropertyTests属性可返回一个PropertyTests对象。以下示例显示查找单个文件的“查找”的搜索条件数。
Application.FileSearch.PropertyTests.Count
用Add方法向PropertyTests集合中添加一个新的PropertyTest对象。以下示例向搜索条件中添加两个属性测试。第一个条件指定查找任意类型的文件，第二个条件指定该文件应是在1996年1月1日至1996年6月30日之间修改的。然后，在消息框中显示找到的文件数和每个文件的名称。
Set fs = Application.FileSearch
fs.NewSearch
With fs.PropertyTests
.Add Name:="Files of Type", _
Condition:=msoConditionFileTypeAllFiles, _
Connector:=msoConnectorOr
.Add Name:="Last Modified", _
Condition:=msoConditionAnytimeBetween, _
Value:="1/1/96", SecondValue:="6/1/96", _
Connector:=msoConnectorAnd
End With
If fs.Execute() > 0 Then
MsgBox "There were " & fs.FoundFiles.Count & _
" file(s) found."
For i = 1 To fs.FoundFiles.Count
MsgBox fs.FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If使用PropertyTests(index)可返回一个PropertyTest对象；此处index是该对象的索引号。
SearchFolders 属性
返回SearchFolders集合。本示例显示SearchFolders集合中ScopeFolder对象的当前数量。请参阅SearchFolders集合的主题获得详细示例。
MsgBox "Number of ScopeFolder objects in the SearchFolders collection: " & _
Application.FileSearch.SearchFolders.CountSearchFolders 集合
ScopeFolder对象的集合，这些对象确定调用FileSearch对象的Execute方法时搜索的文件夹。
使用FileSearch对象的SearchFolders属性返回SearchFolders集合，例如：
Set sfs = Application.FileSearch.SearchFolders
对于每个应用程序只有一个SearchFolders集合。集合的内容在调用它的代码执行结束后保持不变。因此，清除集合很重要，除非要在搜索中包括上一次搜索的文件夹。
可以使用SearchFolders集合的Add方法向SearchFolders集合中添加ScopeFolder对象，但是使用要添加的ScopeFolder对象的AddToSearchFolders方法更为简便，因为对于所有搜索只有一个SearchFolders集合。
SearchFolders集合可视为对FileSearch对象的LookIn属性的补充。二者均指定搜索的文件夹并在执行搜索时使用。但是，如果只希望使用LookIn属性，应确保SearchFolders集合为空。相反，如果只希望使用SearchFolders集合，请在Execute方法之前将LookIn属性设置为SearchFolders集合第一个成员的路径。
本示例搜索本地计算机上每个名为”1033″的文件夹，查找所有HTML和Microsoft Excel文件。本示例使用SearchFolders集合、SearchScopes集合和ScopeFolders集合。本示例由两个例程组成。SearchEveryFolder例程为要运行的例程。OutputPaths例程独立于主例程，因为它将递归调用自身以浏览本地计算机的整个目录结构。
Sub SearchEveryFolder()
'Declare variables that reference a
'SearchScope and a ScopeFolder object.
Dim ss As SearchScope
Dim sf As ScopeFolder
'Declare a variable to act as a generic counter.
Dim lngCount As Long
'Use a With...End With block to reference the
'FileSearch object.
With Application.FileSearch
'Clear all the parameters of the previous searches.
'This method doesn't clear the LookIn property or
'the SearchFolders collection.
.NewSearch
'Specify the type of file for which to search.
'Use the FileType property to specify the first type
'and then add additional types to the FileTypes collection.
.FileType = msoFileTypeWebPages
.FileTypes.Add msoFileTypeExcelWorkbooks
'Clear the SearchFolder collection by
'looping through each ScopeFolder object
'and removing it.
For lngCount = 1 To .SearchFolders.Count
.SearchFolders.Remove lngCount
Next lngCount
'Loop through the SearchScopes collection to find
'the scope in which you want to search. In this
'case the scope is the local machine.
For Each ss In .SearchScopes
Select Case ss.Type
Case msoSearchInMyComputer
'Loop through each ScopeFolder in
'the ScopeFolders collection of the
'SearchScope object.
For Each sf In ss.ScopeFolder.ScopeFolders
'Call a function that loops through all
'of the subfolders of the root ScopeFolder.
'This function adds any folders named "1033" to the
'SearchFolders collection.
Call OutputPaths(sf.ScopeFolders, "1033")
Next sf
Case Else
End Select
Next ss
'Test to see if any ScopeFolders collections were added to
'the SearchFolders collection.
If .SearchFolders.Count > 0 Then
'Set the LookIn property to the path of
'the first ScopeFolder object in the SearchFolders
'collection. This is here so that any previous
'setting of the LookIn property doesn't affect
'the search.
.LookIn = .SearchFolders.Item(1).Path
'Execute the search and test to see if any files
'were found.
If .Execute <> 0 Then
'Display the number of files found.
MsgBox "Files found: " & .FoundFiles.Count
'Loop through the list of found files and
'display the path of each one in a message box.
For lngCount = 1 To .FoundFiles.Count
If MsgBox(.FoundFiles.Item(lngCount), vbOKCancel, _
"Found files") = vbCancel Then
'Break out of the loop
lngCount = .FoundFiles.Count
End If
Next lngCount
End If
End If
End With
End Sub
'This subroutine loops through all of the ScopeFolders collections
'in a given ScopeFolders collection. It adds any folder
'that has the same name as the value of strFolder
'to the SearchFolders collection.
Sub OutputPaths(ByVal sfs As ScopeFolders, _
ByRef strFolder As String)
'Declare a variable as a ScopeFolder object
Dim sf As ScopeFolder
'Loop through each ScopeFolder object in the
'ScopeFolders collection.
For Each sf In sfs
'Test to see if the folder name of the ScopeFolder
'matches the value of strFolder. Use LCase to ensure
'that case does not affect the match.
If LCase(sf.Name) = LCase(strFolder) Then
'Add the ScopeFolder to the SearchFolders collection.
sf.AddToSearchFolders
End If
'Include a DoEvents call because there is the potential for this
'loop to last a long time. The DoEvents call allows this process to
'continue handling events.
DoEvents
'Test to see if the ScopeFolders collection in the
'current ScopeFolder is empty. If it isn't empty, then
'that means that the current ScopeFolder object contains subfolders.
If sf.ScopeFolders.Count > 0 Then
'This subroutine recursively calls itself so that
'it can add the subfolders of the current ScopeFolder object
'to the SearchFolders collection.
Call OutputPaths(sf.ScopeFolders, strFolder)
End If
Next sf
End SubSearchScopes 属性
返回SearchScopes集合。本示例显示SearchScopes集合中所有当前可用的SearchScope对象。
Sub DisplayAvailableScopes()
'Declare a variable that references a
'SearchScope object.
Dim ss As SearchScope
'Use a With...End With block to reference the
'FileSearch object.
With Application.FileSearch
'Loop through the SearchScopes collection
For Each ss In .SearchScopes
Select Case ss.Type
Case msoSearchInMyComputer
MsgBox "My Computer is an available search scope."
Case msoSearchInMyNetworkPlaces
MsgBox "My Network Places is an available search scope."
Case msoSearchInOutlook
MsgBox "Outlook is an available search scope."
Case msoSearchInCustom
MsgBox "A custom search scope is available."
Case Else
MsgBox "Can't determine search scope."
End Select
Next ss
End With
End SubSearchScopes 集合
SearchScope对象的集合。
使用FileSearch对象的SearchScopes属性返回SearchScopes集合，例如：
Dim sss As SearchScopes
Set sss = Application.FileSearch.SearchScopes
不能向SearchScopes集合中添加或从中删除SearchScope对象。
SearchSubFolders 属性
如果搜索范围包括LookIn属性指定的文件夹中的所有子文件夹，则返回True。Boolean类型，可读写。
TextOrProperty 属性
返回或设置在查找文件的过程中要搜索的单词或短语，它们可位于一个文件的正文或文件属性中。该单词或短语可包含 *（星号）或 ?（问号）通配符。String类型，可读写。
用问号通配符可匹配任意单个字符。例如，键入“gr?y”可找到符合如下条件的所有文件，即文件中至少有一处出现单词“gray”或“grey”。
用星号通配符可匹配任意数目的字符。例如，键入“San*”可找到符合如下条件的所有文件，即文件中至少有一处出现以“San”开头的单词。
本示例可实现的功能为：搜索“C:\My Documents”文件夹及其子文件夹，并返回所有这样的文件，该文件在文件正文或文件属性中包含以“San”开头的单词。TextOrProperty属性设置要查找的单词，并将搜索范围限制在文件正文或文件属性中。
With Application.FileSearch
.NewSearch
.LookIn = "C:\My Documents"
.SearchSubFolders = True
.TextOrProperty = "San*"
.FileType = msoFileTypeAllFiles
End WithExecute 方法
开始对指定文件的搜索。返回一个Long类型，如果没有找到文件，则返回零(0)，如果找到一个或多个文件，则返回一个正数。
expression.Execute(SortBy, SortOrder, AlwaysAccurate)
其中，expression必需。该表达式返回一个 FileSearch 对象。
参数SortBy，MsoSortBy 类型，可选。该方法用于对返回的文件进行排序。MsoSortBy 可以为下列 MsoSortBy 常量之一。 msoSortByFileName 默认值、msoSortByFileType、msoSortByLastModified、msoSortByNone、msoSortBySize。
参数SortOrder，MsoSortOrder类型，可选。表明所返回文件的排序顺序。
参数MsoSortOrder，可以为下列 MsoSortOrder 常量之一。 msoSortOrderAscending，默认值、msoSortOrderDescending。
参数AlwaysAccurate，Boolean类型，可选。设置为True使文件搜索包括上次更新文件索引以来添加、修改或删除的文件。默认值为True。
本示例在My Documents文件夹中搜索以扩展名 “.doc” 结尾的所有文件，然后显示找到的每个文件的位置和名称。本示例还以字母升序排序返回的文件名称。
Set fs = Application.FileSearch
With fs
.LookIn = "C:\My Documents"
.FileName = "*.doc"
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 WithNewSearch 方法
将所有搜索条件重置为默认设置。搜索条件的设置在应用程序的一个会话中将保持不变。每次更改搜索条件时可用此方法。此方法不会重新设置LookIn属性的值。
本示例可实现的功能为：在开始新一轮搜索过程之前用NewSearch方法重新设置默认的搜索条件。
With Application.FileSearch
.NewSearch
.LookIn = "C:\My Documents"
.SearchSubFolders = True
.FileName = "run"
.TextOrProperty = "San*"
.MatchAllWordForms = True
.FileType = msoFileTypeAllFiles
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 WithRefreshScopes 方法
刷新当前可用ScopeFolder对象的列表。下面的示例将显示“我的电脑”C:\ 驱动器上所有当前可用的ScopeFolder对象，并说明在对文件夹列表进行更改时需要使用RefreshScopes方法。
Sub TestRefreshScopesMethod()
' Displays what happens before and after the RefreshScopes
' method is called when a new folder is added to the list
' of scope folders.
' List before the folder is created.
Call ListFolderNames
' Create a new folder on the C:\ drive in My Computer.
' An error will occur if this folder already exists.
MkDir Path:="C:\Delete_After_Using"
' List after the folder is created.
' The newly-created folder does not appear in the list.
Call ListFolderNames
' Refresh the list of folders.
Application.FileSearch.RefreshScopes
' The newly-created folder now appears in the list.
Call ListFolderNames
End Sub
Sub ListFolderNames()
Dim i As Integer
Dim strResults As String
' Loop through all the top-level folder names on the C:\ drive
' in My Computer and report the results.
' .SearchScopes.Item(1) = "My Computer"
' .ScopeFolders.Item(2) = "C:\"
With Application.FileSearch.SearchScopes.Item(1). _
ScopeFolder.ScopeFolders.Item(2)
For i = 1 To .ScopeFolders.Count
strResults = strResults & .ScopeFolders. _
Item(i).Name & vbCrLf
Next i
MsgBox "Folder Names on C:\...." & vbCrLf & strResults
End With
End Sub
Loading ...
