Kazalo
Dir opis
Vrne prvo ime datoteke, ki se ujema z imenom poti in atributi.
Preprosti primeri Dir
| 1 | MsgBox Dir ("") |
S tem se vrne prvo ime datoteke na trenutni poti.
Dir Sintaksa
V urejevalniku VBA lahko vnesete »Dir («), če si želite ogledati skladnjo funkcije Dir:
Funkcija Dir vsebuje 2 argumenta:
Ime poti: [Izbirno] Nizki izraz, ki predstavlja imenik/mapo/pogon.
Atribut: [Izbirno] Podaja atribute datotek. Če izpustite, vrne datoteke, ki se ujemajo z imenom poti, vendar nimajo atributov.
The Atribut nastavitve argumentov so:
| Konstantno | Vrednost | Opis |
|---|---|---|
| vbNormalno | 0 | (Privzeto) Podaja datoteke brez atributov. |
| vbReadOnly | 1 | Določa datoteke samo za branje poleg datotek brez atributov. |
| vbHidden | 2 | Določa skrite datoteke poleg datotek brez atributov. |
| vbSystem | 4 | Določa sistemske datoteke poleg datotek brez atributov. Ni na voljo v sistemu Macintosh. |
| vbVolume | 8 | Določa oznako glasnosti; če je določen kateri koli drug atribut,vbVolume je prezrt. Ni na voljo v sistemu Macintosh. |
| vbDirectory | 16 | Določa imenike ali mape poleg datotek brez atributov. |
| vbAlias | 64 | Določeno ime datoteke je vzdevek. Na voljo samo v sistemu Macintosh. |
Programiranje VBA | Generator kod deluje za vas!
Primeri funkcije Excel VBA Dir
Za prikaz map in datotek na pogonu C lahko uporabite naslednjo kodo.
| 123456789101112131415161718192021222324 | Sub Dir_Example ()Zatemni ime datoteke kot nizZatemni polno Ime kot nizDim rng As RangeDim i kot celo številoNastavi rng = obseg ("A1")fileName = Dir ("C: \", vbDirectory)i = 1NaredifullName = "C: \" & ime datotekerng.Offset (i, 0) = ime datotekerng.Offset (i, 1) = FileDateTime (polno ime)rng.Offset (i, 2) = FileLen (polno ime)rng.Offset (i, 3) = GetAttr (polno ime)ime datoteke = DirIf fileName = "" Nato zapustite Doi = i + 1ZankaEnd Sub |
Rezultat bo podoben z naslednjim.
VBA Dir funkcija v Access VBA
Funkcija VBA Dir deluje v Access VBA na enak način kot v Excelu VBA.
| 123456789 | Funkcija CreateDirectory (strP kot niz) kot logična vrednostČe je Len (Dir (strP, vbDirectory)) = 0 PotemMkDir strPKonec ČeCreateDirectory = TrueIzhodna funkcijazaključek:CreateDirectory = FalseKončana funkcija |
