Förstå " Dir " -funktionen i Access hjälper dig integrera verksamheter filhantering i Visual Basic for Applications ( VBA ) program . Till exempel , kan du använda " Dir " för att presentera den enskilde använder ditt program med en lista med Access-databaser som finns i en viss katalog . När han väljer en databas för att öppna , kan du använda " OpenDatabase " kommando för att öppna den i Access. Object Browser Beskrivning
Ett sätt att förstå " Dir " funktion är att läsa dess beskrivning i VBA Object Browser . Denna webbläsare är tillgänglig i Access för VBA-programmering miljö . När du anger den miljön genom att klicka på " Utvecklare " fliken för " Visual Basic " -knappen , klicka på " Visa " menyn " Objekt browser " för att öppna webbläsaren . Typ " Dir " i webbläsarens sökmotor fältet för att hitta funktionens beskrivning .
Program Visar en fil
att bättre förstå funktionen Dir , köra ett kort program som använder den. För att komma in i funktionen , öppnar Access Visual Basic utvecklingsmiljön genom att klicka på " Utvecklare " fliken för " Visual Basic " -knappen . Klistra in programmet efter detta avsnitt i det nya fönstret som visas . Detta program använder " Dir " för att identifiera en enskild fil i katalogen " C : . \\ Windows " För att köra programmet , klicka på någon av sina uttalanden , och klicka sedan på " Kör " på fliken " Kör " -kommandot . Programmet kommer att visa ett meddelande som visar en fil från " C : . \\ Windows "
Public Sub showFile ( ) katalog
Dim f
f = Dir ( " c : \\ windows \\ " ) katalog
MsgBox f
End sub
argument Dir
" Dir " -funktionen går annorlunda än de flesta andra VBA-funktioner . Första gången du kallar det , måste du göra det med namnet på en mapp , t.ex. " C : . \\ Windows " Efter det inledande åkallan , men du kan kalla " Dir " utan argument . Varje gång du ringer det här sättet , returnerar " Dir " namnet på en annan fil i katalogen som du ursprungligen angavs . " Dir " returnerar en tom sträng efter lista alla filer i katalogen .
Lista alla filer i en katalog
att se hur " Dir " kan lista alla filer i en katalog , klistra in följande program till Access utvecklingsmiljö . Klicka på ett uttalande i programmet , tryck på " F5 " tangenten eller klicka på " Kör " -menyn är " Kör " -kommandot för att köra programmet . du kommer att se " Omedelbar " fönstret visas en lista över alla filer i " C : \\ windows " . mapp
Public Sub showFiles ( ) katalog
Dim f
f = Dir ( " c : \\ windows \\ " ) katalog
( f < > " " ) katalog
i = i + 1
Debug.Print f
f = Dir
Wend
End Sub
