Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Jeden spôsob , ako pochopiť funkciu " Dir " je prečítať jeho opis objektu prehliadači VBA . Tento prehliadač je k dispozícii v programe Access VBA je programovací prostredie . Po vstupe do tohto prostredia , kliknutím na tlačidlo " Developer " kartu je " Visual Basic " , kliknite na " Zobraziť " v menu " Object Browser " pre otvorenie prehliadača . Zadajte " Dir " v poli pre vyhľadávače prehliadača vyhľadajte opis funkcie je .
Program zobrazujúci jeden súbor
Pre lepšie pochopenie funkcie Dir , spustite krátky program , ktorý ho používa . Ak chcete zadať funkciu , Visual Basic vývojové prostredie otvoreného prístupu je kliknutím na tlačidlo " Developer " kartu je " Visual Basic " . Vložte programu nasledujúcej sekcii do nového okna , ktoré sa objavia . Tento program používa " DIR " identifikovať jeden súbor v adresári " C : \\ Windows . " Ak chcete spustiť program , kliknite na niektorý z jej vyhláseniach , a potom kliknite na príkaz " Spustiť " kartu v " Run " . Program zobrazí správu obsahujúcu súbor z " C : \\ Windows . "
Public Sub showFile ( )
Dim f
f = Dir ( "c : \\ windows \\ " )
MsgBox f
End Sub
Tvrdenia Dir
" dir " funkcie jázd inak ako väčšina ostatných funkcií VBA . Prvýkrát sa to volá , musíte tak urobiť s názvom zložky , ako je napríklad " C : \\ Windows . " Po tomto počiatočnom vyvolaní , ale môžete volať " dir " bez argumentov . Zakaždým , keď to hovoriť takto, " Dir " vráti názov iného súboru do adresára , ktorý ste pôvodne zadali . " Dir " vráti prázdny reťazec po výpis všetkých súborov v adresári .
ClipArt zoznam všetkých súborov v adresári
Ak chcete vidieť , ako " Dir " možno vypísať všetky súbory v adresár , vložte nasledujúci program do vývojového prostredia Access . Kliknite na vyhlásenie v programe , potom stlačte tlačidlo " F5 " alebo kliknite na príkaz v ponuke " Run " v " Run " pre spustenie programu . uvidíte okno " Okamžité " zobrazí zoznam všetkých súborov v adresári " C : \\ windows " . zložka
Public Sub showFiles ( )
Dim f
f = Dir ( " C : \\ windows \\ " )
keď ( f < > " " )
i = i + 1
Debug.Print f
f = Dir
Wend
End Sub
Copyright © počítačové znalosti Všetky práva vyhradené