Den Dir funksjon i Access

Forstå "Dir" -funksjonen i Access hjelper deg med å integrere filbehandling operasjoner inn i Visual Basic for Applications (VBA) programmer. For eksempel kan du bruke "dir" for å presentere den enkelte bruker programmet med en liste av Access databaser tilgjengelig i en bestemt katalog. Når han velger en database for å åpne, kan du bruke "OpenDatabase" -kommandoen til å laste det inn Access.

Object Browser Beskrivelse

En måte å forstå "dir" funksjon er å lese beskrivelsen i VBA Object Browser. Denne nettleseren er tilgjengelig i Access s VBA programmering miljø. Når du har angitt at miljøet ved å klikke på "Utvikler" fanen "Visual Basic" -knappen, klikk på "View" -menyen er "Object browser" for å åpne nettleseren. Skriv "dir" i nettleserens søkemotor feltet for å finne funksjonens beskrivelse.

Program Viser en fil

For bedre å forstå Dir-funksjonen, kan du kjøre et kort program som bruker den. Å gå inn i funksjonen, åpen tilgang Visual Basic utviklingsmiljø ved å klikke på "Utvikler" fanen "Visual Basic" -knappen. Lim programmet følger denne delen inn i det nye vinduet som vises. Dette programmet bruker "dir" for å identifisere en enkelt fil i mappen "C:. \ Windows" For å kjøre programmet, klikker du på noen av sine uttalelser, og klikk på "Kjør" -kategorien er "Kjør" -kommandoen. Programmet vil vise en melding som viser en fil fra "C:. \ Windows"

Public Sub showFile ()

Dim f

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

MsgBox f

End Sub

Argumentene til Dir

Den "dir" funksjon går annerledes enn de fleste andre VBA-funksjoner. Første gang du kaller det, må du gjøre det med navnet på en mappe, for eksempel "C:. \ Windows" Etter det innledende påkalling, men du kan kalle "dir" uten argumenter. Hver gang du ringer det på denne måten, "dir" returnerer navnet på en annen fil i katalogen du opprinnelig spesifisert. "Dir" returnerer en tom streng etter notering alle filene i katalogen.

List alle filer i en katalog

For å se hvordan "dir" kan liste opp alle filene i en katalog, lim inn følgende program til Access utviklingsmiljø. Klikk på en uttalelse i programmet, og trykk deretter på "F5" tasten eller klikk på "Kjør" menyen "Kjør" -kommandoen til å kjøre programmet. du vil se "Immediate" -vinduet viser en liste over alle filene i mappen "C: \ Windows" -mappen.

Public Sub showFiles ()

Dim f

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

Mens (f <> "")

i = i + 1

Debug.Print f

f = Dir

Wend

End Sub