Iniciar sesión con Microsoft
Iniciar sesión o crear una cuenta
Hola:
Seleccione una cuenta diferente.
Tiene varias cuentas
Elija la cuenta con la que desea iniciar sesión.

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 Requerido. 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

¿Necesita más ayuda?

¿Quiere más opciones?

Explore las ventajas de las suscripciones, examine los cursos de aprendizaje, aprenda a proteger su dispositivo y mucho más.

Las comunidades le ayudan a formular y responder preguntas, enviar comentarios y leer a expertos con conocimientos extensos.

¿Le ha sido útil esta información?

¿Cuál es tu grado de satisfacción con la calidad del lenguaje?
¿Qué ha afectado a su experiencia?
Si presiona Enviar, sus comentarios se usarán para mejorar los productos y servicios de Microsoft. El administrador de TI podrá recopilar estos datos. Declaración de privacidad.

¡Gracias por sus comentarios!

×