Funkcija „Dir“

Daje nisku koja predstavlja ime datoteke, direktorijuma ili fascikle koja se podudara sa navedenim obrascem ili atributom datoteke ili oznakom volumena disk jedinice.

Sintaksa

Dir[(ime putanje [, atributi] )]

Sintaksa funkcije Dir ima sledeće argumente:

Argument	Opis
putanja	Opcionalno. Izraz niske koji navodi ime datoteke – može da obuhvata direktorijum ili fasciklu i disk jedinicu. Ako se ne pronađe ime putanje , vraća se niska nulte dužine ("").
atributi	Opcionalno. Konstanta ili numerički izraz čiji zbir određuje atribute datoteke. Ako se izostavi, daje datoteke koje se podudaraju sa imenom putanje , ali nemaju atribute.

    

Postavke

Postavke argumenta atributisu:

konstanta	Vrednost	Opis
vbNormal	0	(Podrazumevano) Navodi datoteke bez atributa.
vbReadOnly	1	Navodi datoteke samo za čitanje pored datoteka bez atributa.
vbHidden	2	Navodi skrivene datoteke pored datoteka bez atributa.
Srpsko-hrvatski	4	Navodi sistemske datoteke pored datoteka bez atributa. Nije dostupno na Macintosh računarima.
vbVolume	8	Navodi oznaku volumena; ako je naveden neki drugi atribut, vbVolume se zanemaruje. Nije dostupno na Macintosh računarima.
vbDirectory	16	Navodi direktorijume ili fascikle pored datoteka bez atributa.
vbAlias	64	Navedeno ime datoteke je pseudonim. Dostupno samo na Macintosh računarima.

    

Napomene

U operativnom sistemu Microsoft Windows Dir podržava korišćenje više džokera (*) i jednog znaka (?) za navođenje više datoteka. Na Macintosh računarima ovi znakovi se tretiraju kao važeći znakovi imena datoteke i ne mogu se koristiti kao džokeri za navođenje više datoteka.

Budući da Macintosh ne podržava džoker znakove, koristite tip datoteke za identifikovanje grupe datoteka. Funkciju MacID možete koristiti da biste naveli tip datoteke umesto da koristite imena datoteke. Na primer, sledeći izraz vraća ime prve TEXT datoteke u trenutnoj fascikli:

Dir("SomePath", MacID("TEXT"))

Da biste ponavljali preko svih datoteka u fascikli, navedite praznu nisku:

Dir("")

Ako koristite funkciju MacID sa alatkom Dir u operativnom sistemu Windows, dobija se greška.

Sve vrednosti atributa veće od 256 smatraju se MacID vrednošću.

Morate da navedete putanju kada prvi put pozovete funkciju Dir ili će doći do greške. Ako navedete i atribute datoteke, mora biti uključeno imeputanje .

Dir daje prvo ime datoteke koje se podudara sa imenom putanje. Da biste dobili dodatna imena datoteka koja se podudaraju sa imenom putanje, ponovo pozovite Dir bez argumenata. Kada se više imena datoteka ne podudaraju, Dir vraća nisku nulte dužine (""). Kada dobijete nisku nulte dužine, morate da navedete ime putanje u narednim pozivima da li se ne bi javljala greška. Možete da ga promenite u novo ime putanje bez preuzimanja svih imena datoteka koja se podudaraju sa trenutnom putanjom. Međutim, funkciju Dir ne možete pozivati rekurzivno. Pozivanje alatke Dir sa atributom vbDirectory ne vraća stalno poddirektorijume.

Savet Pošto se imena datoteka ne preuzimaju određenim redosledom, možda bi trebalo da uskladištite vraćena imena datoteka u niz, a zatim da sortirate niz.

Primer

Ovaj primer koristi funkciju Dir za proveru da li postoje određene datoteke i direktorijumi. Na Macintosh računarima, "HD:" je podrazumevano ime disk jedinice, a delovi imena putanje razdvojeni su dvotačkom umesto obrnutim kosim crtama. Takođe, Windows džoker znakovi se tretiraju kao važeći znakovi imena datoteke na Macintosh računarima. Međutim, možete da koristite funkciju MacID da biste naveli grupe datoteka.

Dim MyFile, MyPath, MyName
' Returns "WIN.INI" (on Microsoft Windows) if it exists.
MyFile = Dir("C:\WINDOWS\WIN.INI")    
' Returns filename with specified extension. If more than one *.ini
' file exists, the first file found is returned.
MyFile = Dir("C:\WINDOWS\*.INI")
' Call Dir again without arguments to return the next *.INI file in the 
' same directory.
MyFile = Dir
' Return first *.TXT file with a set hidden attribute.
MyFile = Dir("*.TXT", vbHidden)
' Display the names in C:\ that represent directories.
MyPath = "c:\"    ' Set the path.
MyName = Dir(MyPath, vbDirectory)    ' Retrieve the first entry.
Do While MyName <> ""    ' Start the loop.
    ' Ignore the current directory and the encompassing directory.
    If MyName <> "." And MyName <> ".." Then
        ' Use bitwise comparison to make sure MyName is a directory.
        If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
            Debug.Print MyName    ' Display entry only if it
        End If    ' it represents a directory.
    End If
    MyName = Dir    ' Get next entry.
Loop