Sadržaj
Dir Opis
Vraća prvi naziv datoteke koji se podudara s nazivom putanje i atributima.
Jednostavni Dir primjeri
| 1 | MsgBox Dir ("") |
Ovo će vratiti prvi naziv datoteke na trenutnoj putanji.
Dir Sintaksa
U VBA Editor -u možete upisati "Dir (" da vidite sintaksu funkcije Dir:
Dir funkcija sadrži 2 argumenta:
Ime putanje: [Izborno] Niz izraz koji predstavlja direktorij/mapu/pogon.
Atribut: [Izborno] Određuje atribute datoteke. Ako je izostavljeno, vraća datoteke koje odgovaraju imenu putanje, ali nemaju atribute.
The Atribut postavke argumenta su:
| Konstantno | Vrijednost | Opis |
|---|---|---|
| vbNormalno | 0 | (Zadano) Određuje datoteke bez atributa. |
| vbReadOnly | 1 | Određuje datoteke samo za čitanje uz datoteke bez atributa. |
| vbHidden | 2 | Određuje skrivene datoteke osim datoteka bez atributa. |
| vbSystem | 4 | Određuje datoteke sustava uz datoteke bez atributa. Nije dostupno na Macintosh -u. |
| vbVolume | 8 | Određuje oznaku volumena; ako je naveden bilo koji drugi atribut,vbVolume se zanemaruje. Nije dostupno na Macintosh -u. |
| vbDirectory | 16 | Određuje direktorije ili mape uz datoteke bez atributa. |
| vbAlias | 64 | Navedeni naziv datoteke je pseudonim. Dostupno samo na Macintosh -u. |
VBA programiranje | Generator koda radi za vas!
Primjeri Excel VBA Dir funkcije
Za popis mapa i datoteka na pogonu C možete upotrijebiti sljedeći kôd.
| 123456789101112131415161718192021222324 | Podređeni_primjer ()Dim fileName As StringDim fullName As StringDim rng As RangeDim i Kao cijeli brojPostavi rng = raspon ("A1")fileName = Dir ("C: \", vbDirectory)i = 1ČinifullName = "C: \" & fileNamerng.Offset (i, 0) = fileNamerng.Offset (i, 1) = FileDateTime (puno ime)rng.Offset (i, 2) = FileLen (puno ime)rng.Offset (i, 3) = GetAttr (puno ime)fileName = DirIf fileName = "" Zatim izađite iz Doi = i + 1PetljaKraj podm |
Rezultat će biti sličan sa sljedećim.
VBA Dir funkcija u Access VBA
VBA Dir funkcija radi u Access VBA na isti način kao u Excel VBA.
| 123456789 | Funkcija CreateDirectory (strP kao niz) Kao BooleovAko je Len (Dir (strP, vbDirectory)) = 0 TadaMkDir strPZavrši akoCreateDirectory = IstinaIzlazna funkcijazavršetak:CreateDirectory = NetačnoZavršna funkcija |
