Rež. Aprašymas
Grąžina pirmąjį failo pavadinimą, kuris atitinka nurodytą kelio pavadinimą ir atributus.
Paprasti režimo pavyzdžiai
| 1 | „MsgBox Dir“ („“) |
Taip bus grąžintas pirmasis dabartinio kelio failo pavadinimas.
Režimo sintaksė
VBA redaktoriuje galite įvesti „Dir (“), kad pamatytumėte „Dir“ funkcijos sintaksę:
Funkciją Dir sudaro 2 argumentai:
Kelio pavadinimas: [Pasirenkama] Eilutės išraiška, vaizduojanti katalogą/aplanką/diską.
Atributas: [Neprivaloma] Nurodo failo atributus. Jei praleista, pateikiami failai, atitinkantys kelio pavadinimą, tačiau neturintys atributų.
The Atributas argumentų nustatymai yra šie:
| Pastovus | Vertė | apibūdinimas |
|---|---|---|
| vbNormalus | 0 | (Numatytasis) Nurodo failus be atributų. |
| vbReadOnly | 1 | Be failų be atributų, nurodomi tik skaitomi failai. |
| vbSlėpta | 2 | Be failų be atributų, nurodomi paslėpti failai. |
| vbSystem | 4 | Be failų be atributų, nurodomi sistemos failai. Negalima naudoti „Macintosh“. |
| vbTūris | 8 | Nurodo tūrio etiketę; jei nurodytas kitas atributas,vbTūris yra ignoruojamas. Negalima naudoti „Macintosh“. |
| vbkatalogas | 16 | Be failų be atributų, nurodomi katalogai ar aplankai. |
| vbAlias | 64 | Nurodytas failo pavadinimas yra slapyvardis. Galima tik „Macintosh“. |
VBA programavimas | Kodo generatorius jums tinka!
„Excel VBA Dir“ funkcijos pavyzdžiai
Norėdami išvardyti aplankus ir failus C diske, galite naudoti šį kodą.
| 123456789101112131415161718192021222324 | Antrinis_pavyzdys ()Dim failo pavadinimas kaip eilutėDim fullName As StringDim rng As RangeDim i As IntegerNustatyti rng = Diapazonas („A1“)fileName = Dir ("C: \", vbDirectory)i = 1DarykfullName = "C: \" ir failo pavadinimasrng.Offset (i, 0) = fileNamerng.Offset (i, 1) = FileDateTime (fullName)rng.Offset (i, 2) = FileLen (fullName)rng.Offset (i, 3) = GetAttr (fullName)fileName = RežJei fileName = "" Tada uždarykite „Do“i = i + 1KilpaPabaiga Sub |
Rezultatas bus panašus, kaip nurodyta toliau.
VBA režimo funkcija prieigoje VBA
„VBA Dir“ funkcija veikia „Access VBA“ taip pat, kaip ir „Excel VBA“.
| 123456789 | Funkcija CreateDirectory (strP As String) kaip loginisJei Len (Dir (strP, vbDirectory)) = 0 TadaMkDir strPabaiga JeiCreateDirectory = TiesaIšėjimo funkcijapabaiga:CreateDirectory = NetiesaPabaigos funkcija |
