FileDialog (propiedad)

Se aplica a

Objeto Application

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

expresión.FileDialog(tipoCuadroDeDiálogo)

expresión obligatoria. Una expresión que devuelve uno de los objetos de la lista Se aplica a.

tipoCuadroDeDiálogo    Obligatorio MsoFileDialogType. El tipo de cuadro de diálogo de archivo.

MsoFileDialogType puede ser una de estas constantes MsoFileDialogType.

msoFileDialogFilePicker

msoFileDialogFolderPicker

msoFileDialogOpen no se admite en Microsoft Access.

msoFileDialogSaveAs no se admite en Microsoft Access.

Observaciones

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

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. Después, 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", "*.ACCDB"
.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
Ampliar sus conocimientos
Explorar los cursos
Obtener nuevas características primero
Únase a los participantes de Office Insider

¿Le ha sido útil esta información?

¡Gracias por sus comentarios!

Gracias por sus comentarios. Quizá le interese ponerse en contacto con uno de nuestros agentes de soporte de Office.

×