Dir Descriere
Returnează primul nume de fișier care se potrivește cu calea și atributele specificate.
Exemple simple de Dir
| 1 | MsgBox Dir ("") |
Aceasta va returna primul nume de fișier pe calea curentă.
Sintaxa Dir
În Editorul VBA, puteți tasta „Dir (” pentru a vedea sintaxa funcției Dir:
Funcția Dir conține 2 argumente:
PathName: [Opțional] O expresie șir care reprezintă un director / folder / unitate.
Atribut: [Opțional] Specifică atributele fișierului. Dacă este omis, returnează fișierele care se potrivesc cu calea, dar nu au atribute.
The Atribut setările argumentului sunt:
| Constant | Valoare | Descriere |
|---|---|---|
| vbNormal | 0 | (Implicit) Specifică fișierele fără atribute. |
| vbReadOnly | 1 | Specifică fișierele numai în citire în plus față de fișierele fără atribute. |
| vbAscuns | 2 | Specifică fișierele ascunse în plus față de fișierele fără atribute. |
| vbSystem | 4 | Specifică fișierele de sistem în plus față de fișierele fără atribute. Nu este disponibil pe Macintosh. |
| vbVolume | 8 | Specifică eticheta volumului; dacă este specificat orice alt atribut,vbVolume este ignorat. Nu este disponibil pe Macintosh. |
| vbDirectory | 16 | Specifică directoare sau foldere în plus față de fișierele fără atribute. |
| vbAlias | 64 | Numele fișierului specificat este un alias. Disponibil numai pe Macintosh. |
Programare VBA | Generatorul de coduri funcționează pentru dvs.!
Exemple de funcții Excel VBA Dir
Pentru a lista folderele și fișierele de pe unitatea C, puteți utiliza următorul cod.
| 123456789101112131415161718192021222324 | Sub Dir_Example ()Dim fileName As StringDim fullName As StringDim rng As RangeDim i IntegerSetați rng = Range ("A1")fileName = Dir ("C: \", vbDirectory)i = 1DofullName = "C: \" & fileNamerng.Offset (i, 0) = FileNamerng.Offset (i, 1) = FileDateTime (fullName)rng.Offset (i, 2) = FileLen (fullName)rng.Offset (i, 3) = GetAttr (fullName)fileName = DirDacă fileName = "" Apoi ieșiți din Doi = i + 1BuclăSfârșitul Sub |
Rezultatul va fi similar cu următorul.
Funcția VBA Dir în Access VBA
Funcția VBA Dir funcționează în Access VBA în același mod ca în Excel VBA.
| 123456789 | Funcția CreateDirectory (strP As String) ca BooleanDacă Len (Dir (strP, vbDirectory)) = 0 AtunciMkDir strPEnd IfCreateDirectory = AdevăratFuncția de ieșirefinal:CreateDirectory = FalseFuncția de sfârșit |
