ResetFileList 方法

可用于将当前 AnswerWizard 的文件列表恢复为 Microsoft Office 宿主应用程序的默认文件列表。

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

说明

用此方法可将当前 AnswerWizard 文件列表中的所有项目恢复至宿主应用程序在 Windows 注册表中的列表中。通过向相应的注册表项中加入自定义文件名，可在注册表中建立自定义的默认文件列表。

示例

本示例重新设置当前 AnswerWizard 的文件列表，然后用消息框显示文件数和文件名。

Dim customAnswerWizard As AnswerWizard
Dim strFileList As String
Dim intCounter As Integer
Dim intNumFiles As Integer
Set customAnswerWizard = Application.AnswerWizard
intCounter = 1

customAnswerWizard.ResetFileList
strFileList = ""
intNumFiles = customAnswerWizard.Files.Count
For intCounter = 1 To (intNumFiles)
    strFileList = strFileList & _
    customAnswerWizard.Files.Item(intCounter) & Chr(13)
Next

MsgBox "There are " & customAnswerWizard.Files.Count & _
    " files avaialble through this AnswerWizard: " & _
    Chr(13) & strFileList