Propriedade Application.FileDialog (Access)

Retorna um objeto FileDialog que representa uma única instância de uma caixa de diálogo de arquivo. Somente leitura.

Sintaxe

expressão. FileDialog (dialogType)

expressão Uma variável que representa um Aplicativo objeto.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
dialogType	Obrigatório	MsoFileDialogType	Uma constante MsoFileDialogType que representa o tipo de caixa de diálogo.

Comentários

As constantes msoFileDialogOpen e msoFileDialogSaveAs não têm suporte no Microsoft Access.

Observe que quando um arquivo é selecionado usando a Caixa de diálogo Abrir arquivo, o diretório que contém o arquivo selecionado se tornará o diretório atual do processo. Isso significa que o diretório será bloqueado até que o diectory atual seja alterado ou o processo seja encerrado. Isso impedirá que o diretório seja excluído, movido ou renomeado.

Exemplo

Este exemplo ilustra como usar o objeto FileDialog para exibir uma caixa de diálogo que permite que o usuário selecione um ou mais arquivos. Os arquivos selecionados são adicionados a uma caixa de lista chamada 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.