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 i Access. Object Browser Beskrivelse

En måte å forstå " Dir " funksjon er å lese beskrivelsen i VBA Object Browser . Denne nettleseren er tilgjengelig i Access er 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 . Type " Dir " i nettleserens søkemotor feltet for å finne funksjonen beskrivelse .
Program Viser Én fil

For bedre å forstå Dir -funksjonen , kan du kjøre et kort program som bruker den . Å gå inn i funksjonen ved å åpne Access Visual Basic utviklingsmiljø ved å klikke på "Utvikler " fanen " Visual Basic" -knappen . Lim inn i programmet i neste avsnitt 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 deretter 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

Argumenter for Dir

" Dir "-funksjonen 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 , returnerer " Dir " navnet på en annen fil i den katalogen du opprinnelig spesifisert . " Dir " returnerer en tom streng etter en liste over alle filene i katalogen.
List alle filer i en katalog

å se hvordan " Dir " kan liste alle filer 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 er " Kjør"-kommandoen for å kjøre programmet . du vil se " Umiddelbar "-vinduet viser en liste over alle filene i " C : \\ windows " . mappe

Public Sub showFiles ()

Dim f

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

Mens (f < > "")

i = i + 1

Debug.Print f

f = Dir

Wend

End Sub