Opomba: V tej temi opisana funkcija, metoda, predmet ali lastnost, je onemogočena, če se izvaja storitev Microsoft Jet Expression Service v načinu peskovnika, ki preprečuje vrednotenje morebitno nevarnih izrazov. Za več informacij o načinu peskovnika poiščite »način peskovnika« v pomoči.
Vrne niz, ki predstavlja ime datoteke, imenika ali mape, ki se ujema z določenim vzorcem ali atributom datoteke ali oznako nosilca pogona.
Sintaksa
Dir[(ime poti [, atributi] )]
Sintaksa funkcije Dir ima te argumente:
|
Argument |
Opis |
|
ime poti |
Izbirno. Izraz niza, ki določa ime datoteke; lahko vključuje imenik ali mapo in pogon. Niz z ničelno dolžino ("") je vrnjen, če imena poti ni mogoče najti. |
|
atributi |
Izbirno. Konstanta ali številski izraz, katere vsota določa atribute datoteke. Če je izpuščen, vrne datoteke, ki se ujemajo z imenom poti, ampak nimajo atributov. |
Nastavitve
Nastavitve atributovargument so:
|
Konstanta |
Vrednost |
Opis |
|
vbNormal |
0 |
(Privzeto) Določa datoteke brez atributov. |
|
vbReadOnly |
1 |
Določa datoteke samo za branje poleg datotek brez atributov. |
|
vbHidden |
2 |
Določa skrite datoteke samo za branje poleg datotek brez atributov. |
|
VbSystem |
4 |
Določa sistemske datoteke poleg datotek brez atributov. Ni na voljo v računalniku Macintosh. |
|
vbVolume |
8 |
Določa oznako nosilca; če je določen drug atribut, se vbVolume ne upošteva. Ni na voljo v računalniku Macintosh. |
|
vbDirectory |
16 |
Določa imenike ali mape poleg datotek brez atributov. |
|
vbAlias |
64 |
Določeno ime datoteke je vzdevek. Na voljo samo v računalniku Macintosh. |
Opomba: Te konstante so navedene s programom Visual Basic for Applications (VBA) in jih lahko uporabite kjer koli v kodi na mestu dejanskih vrednosti.
Opombe
V sistemu Microsoft Windows, Dir podpira uporabo nadomestnih znakov za več znakov (*) in en znak (?) za določanje več datotek. V računalniku Macintosh se ti znaki obravnavajo kot veljavni znaki imena datoteke in jih ni mogoče uporabiti kot nadomestne znake za določanje več datotek.
Ker v računalnikih Macintosh nadomestni znaki niso podprti, uporabite vrsto datoteke za identifikacijo skupin datotek. Funkcijo MacID lahko uporabite za določanje vrsto datoteke, namesto imen datotek. Ta izjava na primer vrne ime prve BESEDILNE datoteke v trenutni mapi:
Dir("SomePath", MacID("TEXT"))
Za ponovitev v vseh datotekah v mapi določite prazen niz:
Dir("")
Če uporabite funkcijo MacID s funkcijo Dir v sistemu Windows, pride do napake.
Vse vrednosti atributov, večje od 256, veljajo za vrednost MacID.
Pri prvem priklicu funkcije Dir morate določiti ime poti, v nasprotnem primeru pride do napake. Če določite tudi atribute datoteke, mora biti vključeno ime poti.
Dir vrne prvo ime datoteke, ki se ujema z imenom poti. Če želite dobiti dodatna imena datotek, ki se ujemajo z imenom poti, znova prikličite Dir brez argumentov. Ko se nobeno ime datoteke ne ujema več, Dir vrne niz ničelne dolžine (""). Ko je vrnjen niz ničelne dolžine, morate določiti ime poti v naslednjih priklicih, v nasprotnem primeru pride do napake. Spremenite lahko novo ime poti, ne da bi pridobili vsa imena datotek, ki se ujemajo s trenutnim imenom poti. Vendar pa funkcije Dir ne morete priklicati rekurzivno. Priklic funkcije Dir z atributom vbDirectory ne vrača stalno podimenikov.
Namig Imena datotek so pridobljena v določenem vrstnem redu, zato morda želite vrnjena imena datotek shraniti v matrica in nato razvrstiti matriko.
Primer
Opomba: V spodnjih primerih je prikazana uporaba te funkcije v modulu Visual Basic for Applications (VBA). Če želite več informacij o delu z modulom VBA, izberite Vsebina za razvijalce na spustnem seznamu ob možnosti Iskanje in v iskalno polje vnesite enega ali več izrazov.
V tem primeru se funkcija Dir uporablja za preverjanje, ali obstajajo določene datoteke in imeniki. V računalniku Macintosh je privzeto ime pogona »HD:« in deli imena poti so med seboj ločeni z dvopičjem, namesto s poševnico nazaj. Poleg tega se nadomestni znaki v sistemu Windows obravnavajo kot veljavni znaki imena datoteke v računalniku Macintosh. Vendar pa lahko funkcijo MacID uporabite za določanje skupin datotek.
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
