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