Office VBA教程:Files属性

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

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

VBA示例

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

上页:Office VBA教程:FileName属性 下页:Office VBA教程:FileType属性

Office VBA教程:Files属性

Office VBA教程:FileType属性 Office VBA教程:FileTypes属性
Office VBA教程:FilterIndex属性 Office VBA教程:Filters属性
Office VBA教程:FixedWidthFont属性 Office VBA教程:FixedWidthFontSize属性
Office VBA教程:FoundFiles属性 Office VBA教程:GuessHelp属性
Office VBA教程:Guid属性 Office VBA教程:Heading属性
Office VBA教程:Height属性 Office VBA教程:HelpContextId属性
Office VBA教程:HelpFile属性 Office VBA教程:HighPriorityTips属性
Office VBA教程:HTMLProjectItems属性 Office VBA教程:HyperlinkType属性
Office VBA教程:Icon属性 Office VBA教程:Id属性
Office VBA教程:Index属性 Office VBA教程:InitialFileName属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号