Compreender a função " Dir " no Access ajuda a integrar as operações de gerenciamento de arquivos em seu Visual Basic for Applications (VBA) programas . Por exemplo, você pode usar " Dir " para apresentar o indivíduo que utiliza seu programa com uma lista de bancos de dados de acesso disponíveis em um diretório específico . Uma vez que ele escolhe um banco de dados para abrir , você pode usar o comando " OpenDatabase " para carregá-lo para o Access.

Object Browser Descrição Uma maneira de entender a função " Dir " é para ler sua descrição no Pesquisador de objetos VBA. Este navegador está disponível em ambiente de programação VBA do Access. Depois de entrar nesse ambiente , clicando no botão "Developer" da aba " Visual Basic" , clique em " View" "browser Object" do menu para abrir o navegador. Digite " Dir " no campo de busca do navegador para localizar a descrição da função.
Programa Mostrando Um arquivo

Para entender melhor a função Dir, executar um programa curto que usa-lo . Para entrar na função, ambiente de desenvolvimento do Visual Basic do acesso aberto ao clicar no botão "Developer" da aba " Visual Basic" . Cole o seguinte programa desta seção na nova janela que aparece. Este programa usa " Dir " para identificar um único arquivo dentro do diretório "C: \\ windows ". Para executar o programa , clique em qualquer de suas declarações, clique no comando "Executar" do separador "Run" . O programa exibirá uma mensagem mostrando um arquivo de "C: \\ Windows. "

Public Sub ShowFile ()

Dim f

f = Dir ( "c: \\ windows \\ " )

MsgBox f

End Sub

Argumentos de Dir

Os " dir " corridas de função diferentemente do que a maioria das outras funções do VBA. A primeira vez que você chamá-lo , tem de fazê-lo com o nome de uma pasta, como "C: \\ Windows. " Depois que a invocação inicial, no entanto , você pode chamar de " Dir " sem argumentos. Cada vez que você chamá-lo desta forma , " Dir " retorna o nome de outro arquivo dentro do diretório que você originalmente especificado. " Dir " retorna uma cadeia vazia após a listagem de todos os arquivos no diretório .
Listar todos os arquivos em um diretório

Para ver como " Dir " pode listar todos os arquivos em um diretório, cole o seguinte programa no ambiente de desenvolvimento do Access. Clique uma declaração no programa, pressione a tecla "F5" ou clique comando "Executar" do menu " Executar" para executar o programa. você verá a janela " imediata" exibir uma lista de todos os arquivos na pasta "C : \\ windows " . pasta

Public Sub showFiles ()

Dim f

f = Dir ( "c: \\ windows \\ ")

While ( f < > "")

i = i + 1

Debug.Print f

f = Dir

Wend
Sub End