Satura rādītājs
Rež. Apraksts
Atgriež pirmo faila nosaukumu, kas atbilst norādītajam ceļa nosaukumam un atribūtiem.
Vienkārši režijas piemēri
| 1 | MsgBox Dir ("") |
Tas atgriezīs pirmā faila nosaukumu pašreizējā ceļā.
Rež. Sintakse
VBA redaktorā varat ierakstīt “Dir (”), lai skatītu funkcijas Dir sintaksi:
Funkcija Dir satur 2 argumentus:
PathName: [Neobligāti] Virknes izteiksme, kas attēlo direktoriju/mapi/disku.
Atribūts: [Neobligāti] Norāda faila atribūtus. Ja tas tiek izlaists, tiek atgriezti faili, kas atbilst ceļa nosaukumam, bet kuriem nav atribūtu.
The Atribūts argumentu iestatījumi ir šādi:
| Pastāvīga | Vērtība | Apraksts |
|---|---|---|
| vbNormāli | 0 | (Noklusējums) Norāda failus bez atribūtiem. |
| vbReadOnly | 1 | Papildus failiem bez atribūtiem norāda tikai lasāmus failus. |
| vbSlēpts | 2 | Norāda slēptos failus papildus failiem bez atribūtiem. |
| vbSystem | 4 | Norāda sistēmas failus papildus failiem bez atribūtiem. Nav pieejams Macintosh. |
| vbSējums | 8 | Norāda apjoma etiķeti; ja ir norādīts kāds cits atribūts,vbSējums tiek ignorēts. Nav pieejams Macintosh. |
| vbDirectory | 16 | Norāda direktorijus vai mapes papildus failiem bez atribūtiem. |
| vbAlias | 64 | Norādītais faila nosaukums ir aizstājvārds. Pieejams tikai Macintosh. |
VBA programmēšana | Kodu ģenerators strādā jūsu labā!
Excel VBA režijas funkcijas piemēri
Lai uzskaitītu mapes un failus C diskā, varat izmantot šādu kodu.
| 123456789101112131415161718192021222324 | Subdir_Example ()Dim failu nosaukums kā virkneAptumšot pilnu nosaukumu kā virkneDim rng As RangeDim i As IntegerIestatīt rng = Diapazons ("A1")fileName = Dir ("C: \", vbDirectory)i = 1VaifullName = "C: \" & faila nosaukumsrng. Offset (i, 0) = faila nosaukumsrng.Offset (i, 1) = FileDateTime (fullName)rng.Offset (i, 2) = FileLen (fullName)rng. Offset (i, 3) = GetAttr (fullName)fileName = RežJa fileName = "" Tad izejiet Doi = i + 1CilpaBeigu apakš |
Rezultāts būs līdzīgs ar sekojošo.
VBA režijas funkcija Access VBA
Funkcija VBA Dir darbojas Access VBA tādā pašā veidā kā Excel VBA.
| 123456789 | Funkcija CreateDirectory (strP kā virkne) kā BūlaJa Len (Dir (strP, vbDirectory)) = 0 TadMkDir strPBeigas JaCreateDirectory = PatiessIziet funkcijabeigas:CreateDirectory = NepareiziBeigu funkcija |
