Forstå " Dir "-funktionen i Access hjælper dig med at integrere filhåndteringsfunktioner operationer ind i din Visual Basic for Applications ( VBA ) programmer. For eksempel kan du bruge " Dir " forelægge den enkelte bruger dit program med en liste over Access-databaser til rådighed i en bestemt mappe . Når han vælger en database til at åbne , kan du bruge " OpenDatabase " kommando til at indlæse den i Access. Object Browser Beskrivelse
En måde at forstå " Dir "-funktionen er at læse en beskrivelse i VBA Object Browser. Denne browser er tilgængelig i Access er VBA programmering miljø . Når du indtaster dette miljø ved at klikke på "Udvikler "-fanen er " Visual Basic ", klik på "Vis" menuen " Object browser" for at åbne browseren. Type " Dir " i browserens søgemaskine felt for at finde funktionens beskrivelse .
Program Viser én fil
For bedre at forstå Dir -funktionen , skal du køre en kort program, bruger det . For at indtaste funktionen , åben adgang Visual Basic udviklingsmiljøet ved at klikke på "Udvikler "-fanen er " Visual Basic "-knappen. Indsæt program efter dette afsnit ind i det nye vindue, der vises. Dette program bruger " Dir " for at identificere en enkelt fil i mappen "C: . \\ Windows " For at køre programmet , klikke på et af sine udtalelser , og klik derefter på "Kør" på fanen "Kør" kommandoen . Programmet vil vise en meddelelse, der viser en fil fra "C: . \\ Windows "
Public Sub showFile ()
Dim f
f = Dir ( "c: \\ windows \\ " )
MsgBox f
End sub
argumenter Dir
" Dir "-funktionen kører anderledes end de fleste andre VBA funktioner . Første gang du kalder det, skal du gøre det med navnet på en mappe , såsom " C: . \\ Windows " Efter denne indledende påkaldelse , dog kan du ringe " Dir " uden argumenter . Hver gang du ringer det på denne måde, " Dir " returnerer navnet på en anden fil i den mappe du oprindeligt angav . " Dir " returnerer en tom streng efter en liste over alle filer i biblioteket .
List alle filer i en mappe
For at se, hvordan " Dir " kan liste alle filer i en mappe , skal du indsætte følgende program til Access udvikling miljø. Klik på en erklæring i programmet , og tryk derefter på " F5 "-tasten eller klik på "Kør" menuen "Kør" kommandoen til at udføre programmet. vil du se " Immediate " vinduet vise en liste over alle filer i " C: \\ Windows" . folder
Public Sub showFiles ()
Dim f
f = Dir ( "c: \\ windows \\ " )
( f < > "")
i = i + 1
Debug.Print f < br >
f = Dir
Wend
End Sub