FileDialog-Eigenschaft (DateiDialog)

Wichtig :  Dieser Artikel wurde maschinell übersetzt. Bitte beachten Sie den Haftungsausschluss. Die englische Version des Artikels ist als Referenz hier verfügbar: hier.

Betrifft

Application-Objekt

Gibt ein FileDialogObjekt, das eine einzelne Instanz eines Dateidialogfelds darstellt.

Ausdruck.FileDialog(dialogType)

Ausdruck Erforderlich. Ein Ausdruck, der eines der Objekte aus der Liste Betrifft zurückgibt.

dialogType    Erforderliche MsoFileDialogType. Der Typ der im Dialogfeld Datei.

MsoFileDialogType kann eine dieser MsoFileDialogType-Konstanten sein.

msoFileDialogFilePicker

msoFileDialogFolderPicker

MsoFileDialogOpen Nicht unterstützt in Microsoft Access.

MsoFileDialogSaveAs Nicht unterstützt in Microsoft Access.

Hinweise

Die Konstanten msoFileDialogOpen und msoFileDialogSaveAs werden in Microsoft Office Access 2007 nicht unterstützt.

Beispiel

In diesem Beispiel wird veranschaulicht, wie das FileDialog-Objekt zum Anzeigen eines Dialogfelds verwendet wird, das es dem Benutzer ermöglicht, eine oder mehrere Dateien auszuwählen. Die ausgewählten Dateien werden dann einer Liste hinzugefügt, die als "FileList" bezeichnet wird.

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

Hinweis : Haftungsausschluss für maschinelle Übersetzungen: Dieser Artikel wurde mithilfe eines Computersystems und ohne jegliche Bearbeitung durch Personen übersetzt. Microsoft bietet solche maschinellen Übersetzungen als Hilfestellung für Benutzer ohne Englischkenntnisse an, damit Sie von den Informationen zu Produkten, Diensten und Technologien von Microsoft profitieren können. Da es sich bei diesem Artikel um eine maschinelle Übersetzung handelt, enthält er möglicherweise Fehler in Bezug auf (Fach-)Terminologie, Syntax und/oder Grammatik.

War diese Information hilfreich?

Sehr gut. Noch anderes Feedback?

Was können wir verbessern?

Vielen Dank für Ihr Feedback!

×