Obsah
Popis režie
Vrátí první název souboru, který odpovídá zadané cestě a atributům.
Jednoduché příklady Dir
| 1 | MsgBox Dir ("") |
Tím se vrátí první název souboru na aktuální cestě.
Syntaxe dir
V editoru VBA můžete zadat „Dir (“ pro zobrazení syntaxe funkce Dir:
Funkce Dir obsahuje 2 argumenty:
Název cesty: [Volitelné] Řetězcový výraz představující adresář/složku/jednotku.
Atribut: [Volitelné] Určuje atributy souboru. Pokud je vynechán, vrátí soubory, které odpovídají názvu cesty, ale nemají žádné atributy.
The Atribut nastavení argumentů jsou:
| Konstantní | Hodnota | Popis |
|---|---|---|
| vbNormal | 0 | (Výchozí) Určuje soubory bez atributů. |
| vbReadOnly | 1 | Kromě souborů bez atributů určuje soubory pouze pro čtení. |
| vbHidden | 2 | Kromě souborů bez atributů určuje skryté soubory. |
| vbSystem | 4 | Kromě souborů bez atributů určuje systémové soubory. Není k dispozici na počítači Macintosh. |
| vbHlas | 8 | Určuje označení svazku; pokud je uveden jiný atribut,vbHlas je ignorována. Není k dispozici na počítači Macintosh. |
| vbDirectory | 16 | Kromě souborů bez atributů určuje adresáře nebo složky. |
| vbAlias | 64 | Zadaný název souboru je alias. K dispozici pouze na počítačích Macintosh. |
Programování VBA | Generátor kódu pracuje pro vás!
Příklady funkce Excel VBA Dir
Chcete -li zobrazit seznam složek a souborů na jednotce C, můžete použít následující kód.
| 123456789101112131415161718192021222324 | Sub Dir_Example ()Dim fileName As StringDim fullName As StringDim rng As RangeDim i As IntegerNastavit rng = rozsah ("A1")fileName = Dir ("C: \", vbDirectory)i = 1DělatfullName = "C: \" & název_souborurng.Offset (i, 0) = název souborurng.Offset (i, 1) = FileDateTime (fullName)rng.Offset (i, 2) = FileLen (fullName)rng.Offset (i, 3) = GetAttr (fullName)název_souboru = DirPokud fileName = "" Pak Ukončete Doi = i + 1SmyčkaEnd Sub |
Výsledek bude podobný následujícímu.
Funkce VBA Dir v Access VBA
Funkce VBA Dir funguje v Access VBA stejným způsobem jako v Excel VBA.
| 123456789 | Funkce CreateDirectory (strP jako řetězec) jako booleanPokud Len (Dir (strP, vbDirectory)) = 0 ThenMkDir strPKonec IfCreateDirectory = TrueFunkce ukončeníkonec:CreateDirectory = FalseKoncová funkce |
