Dir Kuvaus
Palauttaa ensimmäisen tiedostonimen, joka vastaa määritettyä polkua ja määritteitä.
Yksinkertaisia esimerkkejä
| 1 | MsgBox Dir ("") |
Tämä palauttaa nykyisen polun ensimmäisen tiedostonimen.
Dir syntaksi
VBA -editorissa voit kirjoittaa "Dir (") nähdäksesi Dir -toiminnon syntaksin:
Dir -funktio sisältää 2 argumenttia:
Polun nimi: [Valinnainen] Merkkijonolauseke, joka edustaa hakemistoa/kansiota/asemaa.
Attribuutti: [Valinnainen] Määrittää tiedoston määritteet. Jos se jätetään pois, palauttaa tiedostot, jotka vastaavat polun nimeä, mutta joilla ei ole määritteitä.
The Attribuutti argumenttiasetukset ovat:
| Jatkuva | Arvo | Kuvaus |
|---|---|---|
| vbNormaali | 0 | (Oletus) Määrittää tiedostot, joissa ei ole määritteitä. |
| vbReadOnly | 1 | Määrittää vain luku-tiedostot tiedostojen lisäksi, joissa ei ole määritteitä. |
| vbPiilotettu | 2 | Määrittää piilotetut tiedostot niiden tiedostojen lisäksi, joilla ei ole määritteitä. |
| vbSystem | 4 | Määrittää järjestelmätiedostot tiedostojen lisäksi, joissa ei ole määritteitä. Ei käytettävissä Macintoshissa. |
| vbTilavuus | 8 | Määrittää äänenvoimakkuustarran; jos jokin muu ominaisuus on määritetty,vbTilavuus jätetään huomiotta. Ei käytettävissä Macintoshissa. |
| vbHakemisto | 16 | Määrittää hakemistot tai kansiot tiedostojen lisäksi, joissa ei ole määritteitä. |
| vbAlias | 64 | Määritetty tiedostonimi on alias. Käytettävissä vain Macintoshissa. |
VBA -ohjelmointi | Koodigeneraattori toimii sinulle!
Esimerkkejä Excel VBA Dir -toiminnosta
Voit luetella C -aseman kansiot ja tiedostot seuraavalla koodilla.
| 123456789101112131415161718192021222324 | Aladir_esimerkki ()Dim -tiedoston nimi nimellä merkkijonoDim fullName As StringDim rng as RangeDim i Kuten kokonaislukuAseta rng = Alue ("A1")fileName = Dir ("C: \", vbDirectory)i = 1TehdäfullName = "C: \" & tiedostonimirng.Offset (i, 0) = tiedostonimirng.Offset (i, 1) = FileDateTime (fullName)rng.Offset (i, 2) = FileLen (fullName)rng.Offset (i, 3) = GetAttr (fullName)fileName = OhjJos fileName = "" Lopeta sitten Doi = i + 1SilmukkaEnd Sub |
Tulos on samanlainen seuraavan kanssa.
VBA -ohjaustoiminto Access VBA: ssa
VBA Dir -toiminto toimii Access VBA: ssa samalla tavalla kuin Excel VBA.
| 123456789 | Toiminto CreateDirectory (strP As String) Boolen muodossaJos Len (Dir (strP, vbDirectory)) = 0 SittenMkDir StrPLoppu JosCreateDirectory = TosiLopeta toimintoloppu:CreateDirectory = VääräLopeta toiminto |
