Indholdsfortegnelse
Dir Beskrivelse
Returnerer det første filnavn, der matcher det angivne stinavn og attributter.
Simple Dir Eksempler
| 1 | MsgBox Dir ("") |
Dette vil returnere det første filnavn på den aktuelle sti.
Dir syntaks
I VBA Editor kan du skrive "Dir (" for at se syntaksen for Dir -funktionen:
Dir -funktionen indeholder 2 argumenter:
Stienavn: [Valgfrit] Et strengudtryk, der repræsenterer et bibliotek/en mappe/et drev.
Attribut: [Valgfrit] Angiver filattributter. Hvis den udelades, returneres filer, der matcher stinavn, men som ikke har nogen attributter.
Det Attribut argumentindstillinger er:
| Konstant | Værdi | Beskrivelse |
|---|---|---|
| vbNormal | 0 | (Standard) Angiver filer uden attributter. |
| vbReadOnly | 1 | Angiver skrivebeskyttede filer ud over filer uden attributter. |
| vbSkjult | 2 | Angiver skjulte filer ud over filer uden attributter. |
| vbSystem | 4 | Angiver systemfiler ud over filer uden attributter. Ikke tilgængelig på Macintosh. |
| vbVolume | 8 | Angiver volumenetiket; hvis der er angivet en anden attribut,vbVolume ignoreres. Ikke tilgængelig på Macintosh. |
| vbDirectory | 16 | Angiver mapper eller mapper ud over filer uden attributter. |
| vbAlias | 64 | Det angivne filnavn er et alias. Fås kun på Macintosh. |
VBA -programmering | Kodegenerator virker for dig!
Eksempler på Excel VBA Dir -funktion
For at vise mapper og filer på C -drev kan du bruge følgende kode.
| 123456789101112131415161718192021222324 | Sub Dir_Example ()Dim filnavn som strengDim fuldnavn som strengDim rng Som områdeDim i As IntegerIndstil rng = Range ("A1")fileName = Dir ("C: \", vbDirectory)jeg = 1GørfullName = "C: \" & filnavnrng.Offset (i, 0) = filnavnrng.Offset (i, 1) = FileDateTime (fuldnavn)rng.Offset (i, 2) = FileLen (fuldnavn)rng.Offset (i, 3) = GetAttr (fuldnavn)filnavn = DirHvis fileName = "" Så afslut Doi = i + 1SløjfeAfslut Sub |
Resultatet vil være det samme med følgende.
VBA Dir -funktion i Access VBA
VBA Dir -funktionen fungerer i Access VBA på samme måde som i Excel VBA.
| 123456789 | Funktion CreateDirectory (strP som streng) Som boolskHvis Len (Dir (strP, vbDirectory)) = 0 SåMkDir strPAfslut HvisCreateDirectory = TrueAfslut funktionSlutning:CreateDirectory = FalskAfslut funktion |
