Lang L: none (table-of-contents)
Dir Kirjeldus
Tagastab esimese failinime, mis vastab määratud tee nimele ja atribuutidele.
Lihtsad režii näited
| 1 | MsgBox Dir ("") |
See tagastab praeguse tee esimese failinime.
Rež. Süntaks
VBA redaktoris saate sisestada "Dir ("), et näha funktsiooni Dir süntaksit:
Funktsioon Dir sisaldab kahte argumenti.
PathName: [Valikuline] Stringväljend, mis tähistab kataloogi/kausta/draivi.
Atribuut: [Valikuline] Määrab faili atribuudid. Kui see välja jäetakse, tagastab failid, mis vastavad tee nimele, kuid millel pole atribuute.
The Atribuut argumendi seaded on järgmised:
| Pidev | Väärtus | Kirjeldus |
|---|---|---|
| vbNormaalne | 0 | (Vaikimisi) Määrab atribuutideta failid. |
| vbReadOnly | 1 | Määrab kirjutuskaitstud failid lisaks atribuutideta failidele. |
| vbPelatud | 2 | Määrab peidetud failid lisaks atribuutideta failidele. |
| vbSystem | 4 | Määrab süsteemifailid lisaks atribuutideta failidele. Pole Macintoshis saadaval. |
| vbmaht | 8 | Määrab helitugevuse sildi; kui on määratud mõni muu atribuut,vbmaht ignoreeritakse. Pole Macintoshis saadaval. |
| vbKataloog | 16 | Määrab kataloogid või kaustad lisaks atribuutideta failidele. |
| vbAlias | 64 | Määratud failinimi on varjunimi. Saadaval ainult Macintoshis. |
VBA programmeerimine | Koodigeneraator töötab teie jaoks!
Näited Excel VBA juhtimisfunktsioonist
C -draivi kaustade ja failide loetlemiseks võite kasutada järgmist koodi.
| 123456789101112131415161718192021222324 | Alamdirektiiv_näide ()Hämarda failiNimi kui stringHämarda täisnimi kui stringDim rng As RangeDim i As täisarvMäära rng = Vahemik ("A1")fileName = Dir ("C: \", vbDirectory)i = 1TehkefullName = "C: \" & faili nimirng.Nihke (i, 0) = failiNimirng.Offset (i, 1) = FileDateTime (täisnimi)rng.Offset (i, 2) = FileLen (täisnimi)rng.Offset (i, 3) = GetAttr (täisnimi)fileName = RežKui fileName = "" Seejärel väljui = i + 1LoopEnd Sub |
Tulemus on sarnane järgnevaga.
VBA juhtfunktsioon Accessis VBA
Funktsioon VBA Dir töötab Access VBA -s samamoodi nagu Excel VBA -s.
| 123456789 | Funktsioon CreateDirectory (strP kui string) kui BooleanKui Len (Dir (strP, vbDirectory)) = 0 SiisMkDir strPLõpp KuiCreateDirectory = TõsiVälju funktsioonlõpp:CreateDirectory = ValeLõppfunktsioon |
