ClearFileList 方法

清除当前 AnswerWizard 的文件列表，包括 Microsoft Office 宿主应用程序中的默认文件列表。

expression.ClearFileList

expression该表达式返回一个AnswerWizard 对象。

说明

使用此方法可删除指定应用程序当前文件列表中的全部项目。也可用此方法确保在宿主应用程序中无用户可用的默认 AnswerWizard 文件。然后您即可使用AnswerWizardFiles 集合的Add 方法建立自定义的文件列表。

若要恢复宿主应用程序的默认 AnswerWizard 文件设置，请使用ResetFileList 方法。

示例

本示例实现的功能是：先为 AnswerWizard 接受自定义文件列表做好准备，然后添加两个自定义的 AnswerWizard 文件。首先，本示例清除文件列表，接着添加两个自定义的 AnswerWizard 文件，然后检查文件数和文件名，以确认文件已正确添加。

Dim customAnswerWizard As AnswerWizard
Set customAnswerWizard = Application.AnswerWizard

customAnswerWizard.ClearFileList
customAnswerWizard.Files.Add ("c:\awfiles\custom_1.aw")
customAnswerWizard.Files.Add ("c:\awfiles\custom_2.aw")

If customAnswerWizard.Files.Count = 2 Then
 MsgBox "Files " & customAnswerWizard.Files.Item(1) & _
 " and " & customAnswerWizard.Files(2) & _
 " were added sucessfully."
End If