Files 属性

返回AnswerWizardFiles 集合，该集合代表当前 AnswerWizard 可用的文件列表。只读。

有关返回单个集合成员的详细信息，请参阅返回集合中的对象。

示例

本示例重新设置当前 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