Dir Beskrivelse
Returnerer det første filnavnet som samsvarer med banenavnet og attributtene som er angitt.
Enkle Dir -eksempler
| 1 | MsgBox Dir ("") |
Dette vil returnere det første filnavnet på den nåværende banen.
Dir syntaks
I VBA Editor kan du skrive “Dir (” for å se syntaksen for Dir -funksjonen:
Dir -funksjonen inneholder 2 argumenter:
Banenavn: [Valgfritt] Et strenguttrykk som representerer en katalog/mappe/stasjon.
Egenskap: [Valgfritt] Angir filattributter. Hvis den utelates, returneres filer som samsvarer med banenavn, men som ikke har noen attributter.
De Egenskap argumentinnstillinger er:
| Konstant | Verdi | Beskrivelse |
|---|---|---|
| vbNormal | 0 | (Standard) Angir filer uten attributter. |
| vbReadOnly | 1 | Spesifiserer skrivebeskyttede filer i tillegg til filer uten attributter. |
| vbHidden | 2 | Spesifiserer skjulte filer i tillegg til filer uten attributter. |
| vbSystem | 4 | Spesifiserer systemfiler i tillegg til filer uten attributter. Ikke tilgjengelig på Macintosh. |
| vbVolume | 8 | Spesifiserer volumetikett; hvis et annet attributt er spesifisert,vbVolume blir ignorert. Ikke tilgjengelig på Macintosh. |
| vbDirectory | 16 | Spesifiserer kataloger eller mapper i tillegg til filer uten attributter. |
| vbAlias | 64 | Spesifisert filnavn er et alias. Bare tilgjengelig på Macintosh. |
VBA -programmering | Kodegenerator fungerer for deg!
Eksempler på Excel VBA Dir -funksjon
For å vise mapper og filer på C -stasjonen, kan du bruke følgende kode.
| 123456789101112131415161718192021222324 | Sub Dir_Example ()Dim filnavn som strengDim fullName As StringDim rng As RangeDim i As IntegerSett rng = Range ("A1")fileName = Dir ("C: \", vbDirectory)jeg = 1GjørefullName = "C: \" og filnavnrng.Offset (i, 0) = filnavnrng.Offset (i, 1) = FileDateTime (fullName)rng.Offset (i, 2) = FileLen (fullName)rng.Offset (i, 3) = GetAttr (fullName)filnavn = DirHvis fileName = "" Så avslutt Doi = i + 1LøkkeSlutt Sub |
Resultatet vil være likt med følgende.
VBA Dir -funksjon i Access VBA
VBA Dir -funksjonen fungerer i Access VBA på samme måte som den gjør i Excel VBA.
| 123456789 | Funksjon CreateDirectory (strP As String) Som boolskHvis Len (Dir (strP, vbDirectory)) = 0 DaMkDir strPSlutt omCreateDirectory = TrueAvslutt funksjonslutt:CreateDirectory = FalseSluttfunksjon |
