Propiedad Application.FileDialog (Access)

Devuelve un objeto FileDialog que representa una instancia única de un cuadro de diálogo de archivo. Solo lectura.

Sintaxis

expresión. FileDialog (dialogType)

expresión Variable que representa un objeto Application.

Parámetros

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
dialogType	Obligatorio	MsoFileDialogType	Constante MsoFileDialogType que representa el tipo de cuadro de diálogo.

Comentarios

Las constantes msoFileDialogOpen y msoFileDialogSaveAs no se admiten en Microsoft Access.

Tenga en cuenta que cuando se selecciona un archivo mediante el cuadro de diálogo Abrir archivo, el directorio que contiene el archivo seleccionado se convertirá en el directorio actual del proceso. Esto significa que el directorio se bloqueará hasta que se cambie la distribución actual o el proceso finalice. Esto impedirá que se elimine, mueva o cambie el nombre del directorio.

Ejemplo:

En este ejemplo se muestra cómo usar el objeto FileDialog para mostrar un cuadro de diálogo que permite al usuario seleccionar uno o varios archivos. A continuación, los archivos seleccionados se agregan a un cuadro de lista denominado FileList.

Private Sub cmdFileDialog_Click() 
  
   ' Requires reference to Microsoft Office 11.0 Object Library. 
 
   Dim fDialog As Office.FileDialog 
   Dim varFile As Variant 
 
   ' Clear listbox contents. 
   Me.FileList.RowSource = "" 
 
   ' Set up the File Dialog. 
   Set fDialog = Application.FileDialog(msoFileDialogFilePicker) 
 
   With fDialog 
 
      ' Allow user to make multiple selections in dialog box 
      .AllowMultiSelect = True 
             
      ' Set the title of the dialog box. 
      .Title = "Please select one or more files" 
 
      ' Clear out the current filters, and add our own. 
      .Filters.Clear 
      .Filters.Add "Access Databases", "*.MDB" 
      .Filters.Add "Access Projects", "*.ADP" 
      .Filters.Add "All Files", "*.*" 
 
      ' Show the dialog box. If the .Show method returns True, the 
      ' user picked at least one file. If the .Show method returns 
      ' False, the user clicked Cancel. 
      If .Show = True Then 
 
         'Loop through each file selected and add it to our list box. 
         For Each varFile In .SelectedItems 
            Me.FileList.AddItem varFile 
         Next 
 
      Else 
         MsgBox "You clicked Cancel in the file dialog box." 
      End If 
   End With 
End Sub

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.