Conectați-vă cu Microsoft
Conectați-vă sau creați un cont
Salut,
Selectați un alt cont.
Aveți mai multe conturi
Alegeți contul cu care doriți să vă conectați.

Se aplică la

Obiectul Application

Returnează un obiect FileDialog care reprezintă o singură instanță a unei casete de dialog fișier.

expresie.FileDialog(dialogType)

expresie Obligatoriu. O expresie care returnează unul dintre obiectele din lista Se aplică la.

tip casetă de dialog    MsoFileDialogType obligatoriu. Tipul de fișier casetă de dialog.

MsoFileDialogType poate fi una dintre aceste constante MsoFileDialogType.

msoFileDialogFilePicker

msoFileDialogFolderPicker

msoFileDialogOpen Nu este acceptat în Microsoft Access.

msoFileDialogSaveAs Nu este acceptat în Microsoft Access.

Observații

Constantele msoFileDialogOpen și msoFileDialogSaveAs nu sunt acceptate în Access.

Exemplu

Acest exemplu arată cum să utilizați obiectul FileDialog pentru a afișa o casetă de dialog care să-i permită utilizatorului să selecteze unul sau mai multe fișiere. Fișierele selectate sunt apoi adăugate la o casetă listă numită 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

Aveți nevoie de ajutor suplimentar?

Doriți mai multe opțiuni?

Explorați avantajele abonamentului, navigați prin cursurile de instruire, aflați cum să vă securizați dispozitivul și multe altele.

Comunitățile vă ajută să adresați întrebări și să răspundeți la întrebări, să oferiți feedback și să primiți feedback de la experți cu cunoștințe bogate.

Au fost utile aceste informații?

Cât de mulțumit sunteți de calitatea limbajului?
Ce v-a afectat experiența?
Apăsând pe Trimitere, feedbackul dvs. va fi utilizat pentru a îmbunătăți produsele și serviciile Microsoft. Administratorul dvs. IT va avea posibilitatea să colecteze aceste date. Angajamentul de respectare a confidențialității.

Vă mulțumim pentru feedback!

×