Popis režie
Vráti prvý názov súboru, ktorý zodpovedá zadanej ceste a zadaným atribútom.
Jednoduché príklady dir
| 1 | MsgBox Dir ("") |
Tým sa vráti prvý názov súboru na aktuálnej ceste.
Syntax dir
V editore VBA môžete zadaním „Dir (“ zobraziť syntax pre funkciu Dir:
Funkcia Dir obsahuje 2 argumenty:
Názov cesty: [Voliteľné] Reťazcový výraz predstavujúci adresár/priečinok/jednotku.
Atribút: [Voliteľné] Špecifikuje atribúty súborov. Ak je vynechaný, vráti súbory, ktoré zodpovedajú názvu cesty, ale nemajú žiadne atribúty.
The Pripisovať nastavenia argumentov sú:
| Konštantný | Hodnota | Popis |
|---|---|---|
| vbNormálne | 0 | (Predvolené) Špecifikuje súbory bez atribútov. |
| vbReadOnly | 1 | Okrem súborov bez atribútov určuje aj súbory iba na čítanie. |
| vbSkryté | 2 | Určuje skryté súbory okrem súborov bez atribútov. |
| vbSystem | 4 | Určuje systémové súbory okrem súborov bez atribútov. Nie je k dispozícii na počítačoch Macintosh. |
| vbHlas | 8 | Špecifikuje štítok objemu; ak je uvedený iný atribút,vbHlas sa ignoruje. Nie je k dispozícii na počítačoch Macintosh. |
| vbDirectory | 16 | Určuje okrem súborov bez atribútov aj adresáre alebo priečinky. |
| vbAlias | 64 | Zadaný názov súboru je alias. K dispozícii iba na počítačoch Macintosh. |
Programovanie VBA | Generátor kódu pracuje za vás!
Príklady funkcie Excel VBA Dir
Ak chcete zobraziť zoznam priečinkov a súborov na disku C, môžete použiť nasledujúci kód.
| 123456789101112131415161718192021222324 | Sub Dir_Example ()Dim fileName As StringDim fullName As StringDim rng As RangeDim i As IntegerNastaviť rng = rozsah ("A1")fileName = Dir ("C: \", vbDirectory)i = 1UrobfullName = "C: \" & názov súborurng.Offset (i, 0) = názov súborurng.Offset (i, 1) = FileDateTime (fullName)rng.Offset (i, 2) = FileLen (fullName)rng.Offset (i, 3) = GetAttr (fullName)názov_súboru = DirAk fileName = "" Potom skončitei = i + 1SlučkaKoniec pod |
Výsledok bude podobný nasledujúcemu.
Funkcia VBA DIR v programe Access VBA
Funkcia VBA Dir funguje v programe Access VBA rovnakým spôsobom ako v programe Excel VBA.
| 123456789 | Funkcia CreateDirectory (strP ako reťazec) ako booleovskýAk Len (Dir (strP, vbDirectory)) = 0 PotomMkDir strPKoniec AkCreateDirectory = TrueUkončiť funkciukoniec:CreateDirectory = FalseKoncová funkcia |
