Funkcija dir

Svarbu :  Šis straipsnis išverstas naudojant mašininį vertimą, žr. atsakomybės atsisakymą. Su šio straipsnio versija anglų kalba galite susipažinti čia .

Pastaba : Funkcija, metodą, objektų ir ypatybių šioje temoje aprašyta yra išjungta, jei Microsoft Jet išraiškų tarnyba veikia smėlio dėžės režimą, kuris trukdo galimai nesaugių reiškinių įvertinti. Daugiau informacijos apie smėlio dėžės režimą, ieškokite "smėlio dėžės režimo" žinyne.

Pateikia eilutę , nurodančią failo, katalogo arba aplanko, kuris atitinka nurodytą trafaretą arba failo atributas pavadinimas arba disko tomo žymę.

Sintaksė

Dir [(maršruto vardas [atributus] )]

Funkcija Dir sintaksės argumentai:

Argumentas

Aprašas

Maršruto vardas

Pasirinktinai. Eilutės išraiška, kuri nurodo failo vardą, gali būti katalogo ar aplanko, ir diskų įrenginio. Nulinio ilgio eilutė ("") grąžinama, jei kelias nerastas.

atributai

Pasirinktinai. Konstanta arba skaitinis reiškinys, kurių suma nurodo failų atributai. Jei praleista, grąžina failus, kurie atitinka kelias bet turi nėra atributų.


Parametrai

Atributų argumentas parametrai yra šie:

Konstanta

Reikšmė

Aprašas

vbNormal

0

(Numatytasis parametras) Nurodo failų nėra atributai.

vbReadOnly

1

Nurodo tik skaityti failus be failus be atributai.

vbHidden

2

Nurodo paslėptus failus be failus be atributai.

VbSystem

4

Nurodo be failų sistemos failus nėra atributai. Nėra Macintosh kompiuteryje.

vbVolume

8

Nurodo tomo žymė; Jei bet kuris kitas priskirti nenurodytas, vbVolume nepaisoma. Nėra Macintosh kompiuteryje.

vbDirectory

16

Nurodo katalogus arba failus be jokių atributai.

vbAlias

64

Nurodyto failo vardas yra pseudonimą. Galimas tik Macintosh.


Pastaba : Šias konstantas nustato Visual Basic for Applications (VBA) ir gali būti naudojamas bet kode vietoj tikrų reikšmių.

Pastabos

"Microsoft Windows" Dir palaiko kelių simbolių (*) ir vieną simbolį (?) pakaitos simbolių, Norėdami nurodyti kelis failus. Sistemoje Macintosh šių simbolių laikomas tinkamo failo vardo simbolių ir negali būti naudojamas kaip pakaitos simbolių, Norėdami nurodyti kelis failus.

Kadangi Macintosh nepalaiko į pakaitos simbolių, naudokite failo tipą nustatyti grupės failai. Norėdami nurodyti failo tipą, užuot naudoję failų vardus, galite naudoti su funkcija MacID . Pavyzdžiui, šis sakinys grąžina pirmąjį teksto failo vardą dabartiniame aplanke:

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

Norėdami kartoti per visus failus aplanke, nurodykite tuščią eilutę:

Dir("")

Jei naudojate , funkcija MacID su Dir sistemoje "Windows", įvyksta klaida.

Didesnė nei 256 atributus reikšmė yra laikomas MacID reikšmę.

Nurodykite maršruto vardas pirmą kartą Dir funkciją, arba įvyksta klaida. Jei taip pat nurodyti failo atributus, turi būti maršruto vardas .

Dir pateikia pirmą failo vardas, kuris atitinka maršruto vardas. Norėdami gauti jokių papildomų failų vardų maršruto vardas, skambučių Dir dar kartą su nėra argumentų. Kai nėra daugiau failų vardus, Dir pateikia nulinio ilgio eilutę (""). Kai yra nulinio ilgio eilutė, turite nurodyti maršruto vardas , paskesni skambučiai arba įvyksta klaida. Galite pakeisti į naują maršruto vardas be išlaikant visus failų vardus, kurios atitinka dabartinį maršruto vardas. Tačiau negaliu skambinti Dir funkcija rekurentiniu. Kvietimas Dir atributą vbDirectory nuolat negrąžins pakatalogiuose.

Patarimas     Nes nėra tikra tvarka nuskaitomi failų vardus, galbūt norėsite laikyti grąžintas failų vardus, masyvas, o tada Rūšiuoti masyvo.

Pavyzdys

Pastaba : Pateiktuose pavyzdžiuose parodyta, kaip naudoti šią funkciją „Visual Basic for Applications“ (VBA) modulyje. Daugiau informacijos apie darbą su VBA rasite išplečiamajame sąraše pasirinkę Kūrėjų nuoroda (šalia Ieškos) ir ieškos lauke įvedę vieną ar daugiau sąlygų.

Šiame pavyzdyje naudojama funkcija Dir patikrinti, jei tam tikrus failų ir katalogų nėra. Sistemoje Macintosh "HD:" yra numatytasis disko pavadinimas, o maršruto vardo dalys atskiriamos dvitaškiais, o ne pasvirusius. Be to, Windows pakaitos simbolių laikomas simboliai Macintosh kompiuteryje failo vardą. Tačiau galima naudoti su funkcija MacID nurodyti failo grupes.

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

Pastaba : Mašininio vertimo atsakomybės atsisakymas: Šis straipsnis išverstas naudojant kompiuterinę sistemą be žmogaus įsikišimo. „Microsoft“ pateikia šiuos mašininius vertimus norėdama padėti anglų kalbos nesuprantantiems vartotojams perskaityti turinį apie „Microsoft“ produktus, paslaugas ir technologijas. Šis straipsnis išverstas mašininio vertimo būdu, todėl jame gali būti žodyno, sintaksės ar gramatikos klaidų.

Tobulinkite savo įgūdžius
Ieškoti mokymo
Pirmiausia gaukite naujų funkcijų
Prisijunkite prie „Office Insider“ dalyvių

Ar ši informacija buvo naudinga?

Dėkojame už jūsų atsiliepimus!

Dėkojame už jūsų atsiliepimą! Panašu, kad gali būti naudinga jus sujungti su vienu iš mūsų „Office“ palaikymo agentų.

×