Dir Leírás
Visszaadja az első fájlnevet, amely megfelel a megadott elérési útnak és attribútumoknak.
Egyszerű Dir Példák
| 1 | MsgBox Dir ("") |
Ez visszaadja az első fájlnevet az aktuális elérési úton.
Dir szintaxis
A VBA szerkesztőben beírhatja a „Dir (”) parancsot a Dir függvény szintaxisának megtekintéséhez:
A Dir függvény 2 érvet tartalmaz:
PathName: [Nem kötelező] Egy könyvtárat/mappát/meghajtót képviselő karakterlánc -kifejezés.
Tulajdonság: [Nem kötelező] Megadja a fájl attribútumait. Ha elhagyja, az útvonalnévnek megfelelő, de attribútumokkal nem rendelkező fájlokat ad vissza.
Az Tulajdonság argumentum beállítások:
| Állandó | Érték | Leírás |
|---|---|---|
| vbNormális | 0 | (Alapértelmezett) Az attribútumok nélküli fájlokat adja meg. |
| vbReadOnly | 1 | Csak olvasható fájlokat ad meg az attribútumok nélküli fájlok mellett. |
| vb rejtett | 2 | Rejtett fájlokat ad meg az attribútumok nélküli fájlok mellett. |
| vbSystem | 4 | Rendszerfájlokat ad meg az attribútumok nélküli fájlok mellett. Nem érhető el Macintosh rendszeren. |
| vbTérfogat | 8 | Megadja a kötetcímkét; ha más attribútum van megadva,vbTérfogat figyelmen kívül hagyják. Nem érhető el Macintosh rendszeren. |
| vbKönyvtár | 16 | Az attribútumok nélküli fájlokon kívül könyvtárakat vagy mappákat ad meg. |
| vbAlias | 64 | A megadott fájlnév egy álnév. Csak Macintosh rendszeren érhető el. |
VBA programozás | A kódgenerátor működik az Ön számára!
Példák az Excel VBA Dir függvényére
A C meghajtón található mappák és fájlok listázásához használja a következő kódot.
| 123456789101112131415161718192021222324 | Dir_Example ()Dim fájlnév karakterlánckéntTeljes tompításDim rng mint tartományDim i As IntegerÁllítsa be az rng = tartományt ("A1")fileName = Dir ("C: \", vbDirectory)i = 1TeddfullName = "C: \" & fájlnévrng.Offset (i, 0) = fájlnévrng.Offset (i, 1) = FileDateTime (teljesnév)rng.Offset (i, 2) = FileLen (fullName)rng.Offset (i, 3) = GetAttr (fullName)fileName = IrányHa fileName = "" Akkor lépjen ki a Doi = i + 1HurokEnd Sub |
Az eredmény hasonló lesz a következővel.
VBA Dir funkció az Access VBA -ban
A VBA Dir funkció az Access VBA -ban ugyanúgy működik, mint az Excel VBA -ban.
| 123456789 | Funkció CreateDirectory (strP As String) Logikai értékkéntHa Len (Dir (strP, vbDirectory)) = 0 AkkorMkDir strPVége HaCreateDirectory = IgazKilépés funkcióbefejező:CreateDirectory = HamisVége funkció |
