Napomena: Funkcija, metoda, objekt ili svojstvo opisano u ovoj temi onemogućeno je ako je Microsoft Jet Expression Service pokrenut u načinu rada sigurnosne ograde, što onemogućuje procjenu potencijalno nesigurnih izraza. Dodatne informacije o načinu rada sigurnosne ograde potražite u pomoći u odjeljku "način rada s memorijom za testiranje".
Vraća niz koji predstavlja naziv datoteke, direktorija ili mape koja odgovara navedenom uzorku ili atributu datoteke ili oznaci jedinice pogona.
Sintaksa
Dir[(naziv puta [, atributi] )]
Sintaksa funkcije Dir sadrži ove argumente:
|
Argument |
Opis |
|
naziv puta |
Neobavezno. Nizovni izraz koji određuje naziv datoteke – može obuhvaćati direktorij ili mapu i pogon. Niz nulte duljine ("") vraća se ako naziv puta nije pronađen. |
|
Atribute |
Neobavezno. Konstanta ili numerički izraz, čiji zbroj određuje atribute datoteka. Ako se izostavi, vraća datoteke koje odgovaraju nazivu puta, ali nemaju atribute. |
Postavke
Atributi argument su:
|
Konstanta |
Vrijednost |
Opis |
|
vbNormal |
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 uz datoteke bez atributa. |
|
VbSystem |
4 |
Određuje sistemske datoteke uz datoteke bez atributa. Nije dostupno na Macintosh. |
|
vbVolume |
8 |
Određuje oznaku jedinice; ako je naveden neki drugi pripisan, vbVolume se zanemaruje. Nije dostupno na Macintosh. |
|
vbDirectory |
16 |
Određuje direktorije ili mape uz datoteke bez atributa. |
|
vbAlias |
64 |
Navedeni je naziv datoteke pseudonim. Dostupno samo za Macintosh. |
Napomena: Te konstante naveli su Visual Basic for Applications (VBA) i mogu se koristiti bilo gdje u kodu umjesto stvarnih vrijednosti.
Napomene
U sustavu Microsoft Windows Dir podržava korištenje više znakova (*) i zamjenskih znakova (?) za određivanje više datoteka. Na Macintoshu ti se znakovi smatraju valjanim znakovima naziva datoteke i ne mogu se koristiti kao zamjenski znakovi za određivanje više datoteka.
Budući da Macintosh ne podržava zamjenske znakove, pomoću te vrste datoteke identificirajte grupe datoteka. Pomoću funkcije MacID možete odrediti vrstu datoteke umjesto naziva datoteka. Sljedeća naredba, primjerice, vraća naziv prve TEKSTne datoteke u trenutnoj mapi:
Dir("SomePath", MacID("TEXT"))
Da biste iterirajte preko svih datoteka u mapi, navedite prazan niz:
Dir("")
Ako koristite funkciju MacID uzDir u sustavu Windows, doći će do pogreške.
Vrijednost atributa veća od 256 smatra se vrijednosti MacID-a .
Prilikom prvog pozivanja funkcijeDir morate navesti naziv puta ili se pojavljuje pogreška. Ako navedete i atribute datoteka, naziv puta mora biti uključen.
Dir vraća naziv prve datoteke koji odgovara nazivu puta. Da biste dobili dodatne nazive datoteka koji odgovaraju nazivu puta, ponovno nazovite Dir bez argumenata. Kada se više ne podudaraju nazivi datoteka, Dir vraća niz nulte duljine (""). Kada se vrati niz nulte duljine, morate navesti naziv puta u sljedećim pozivima ili se pojavljuje pogreška. Možete se promijeniti u novi naziv puta bez dohvaćanja svih naziva datoteka koji odgovaraju trenutnom nazivu puta. No ne možete rekurzivno nazvati funkciju Dir . Pozivanje Dir s atributom vbDirectory ne vraća neprekidno podimektorije.
Savjet Budući da se nazivi datoteka ne dohvaćaju određenim redoslijedom, vraćene nazive datoteka možete pohraniti u polje, a zatim sortirati polje.
Primjer
Napomena: Primjeri koji slijede prikazuju korištenje te funkcije u modulu jezika Visual Basic for Applications (VBA). Da biste pronašli dodatne informacije o radu s VBA-om, na padajućem popisu uz stavku Traži odaberite stavku Referenca za razvojne inženjere pa unesite jedan ili više izraza u okvir pretraživanja.
U ovom se primjeru pomoću funkcije Dir provjerava postoje li određene datoteke i direktoriji. Na Macintoshu je "HD:" zadani naziv pogona, a dijelovi naziva puta razdvojeni su dvotočkama umjesto obrnute kose crte. Osim toga, zamjenski znakovi sustava Windows smatraju se valjanim znakovima naziva datoteke na Macintoshu. No za određivanje grupa datoteka možete koristiti funkciju MacID .
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
