Propiedad Files

Microsoft Office Objects

Propiedad Files

       

Devuelve una colección AnswerWizardFiles que representa la lista de archivos disponibles en el Asistente para Ayuda actual. Es de sólo lectura.

Para obtener más información sobre cómo devolver un solo miembro de una colección, vea Devolver un objeto de una colección.

Ejemplo

Este ejemplo restablece la lista de archivos del Asistente para Ayuda actual y, a continuación, muestra el número de archivos y los nombres de los archivos en un cuadro de mensaje.

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