Funkcija Dir

Piezīme.:  Mēs vēlamies sniegt jums visjaunāko palīdzības saturu jūsu valodā, cik vien ātri to varam. Šī lapa ir tulkota automatizēti, un tajā var būt gramatiskas kļūdas un neprecizitātes. Mūsu nolūks ir šo saturu padarīt jums noderīgu. Vai lapas lejasdaļā varat mums pavēstīt, vai informācija jums noderēja? Ērtai atsaucei šeit ir šis raksts angļu valodā .

Piezīme.: Funkcija, metodi, objektu vai rekvizītu, kas aprakstīts šajā tēmā ir atspējots, ja Microsoft Jet Expression Service ir atvērta smilškastes režīmu, kas neļauj iespējami nedrošās izteiksmes novērtēšanas. Lai iegūtu papildinformāciju par smilškastes režīmu, meklējiet "smilškastes režīma" palīdzībā.

Tiek atgriezta virkne , kas norāda faila, direktorija vai mapes, kas atbilst norādītajam raksta vai faila atribūtu nosaukums vai diska sējuma etiķeti.

Sintakse

Dir [(ceļa nosaukums [atribūtus,] )]

Dir sintaksē ir šādi argumenti:

Arguments

Apraksts

ceļa nosaukums

Pēc izvēles. Virknes izteiksme, kas norāda faila nosaukumu — var ietvert direktorija vai mapes, un disks. Nulles garuma virkni ("") tiek atgriezta, ja ceļa nosaukums nav atrasts.

atribūti

Pēc izvēles. Konstante vai skaitliska izteiksme, kura summa norāda faila atribūtus. Ja tiek izlaists, tiek atgriezta failiem, kas atbilst ceļa _ nosaukumam , bet ir bez atribūtiem.


Iestatījumi

Atribūti arguments iestatījumi ir:

Konstante

Vērtība

Apraksts

vbNormal

0

(Noklusējums) Norāda failus bez atribūtiem.

vbReadOnly

1

Norāda tikai lasāmus failus papildus failiem bez atribūtiem.

vbHidden

2.

Norāda slēptus failus papildus failiem bez atribūtiem.

VbSystem

4

Norāda sistēmas failus papildus failiem bez atribūtiem. Nav pieejams operētājsistēmā Macintosh datorā.

vbVolume

8

Norāda sējuma etiķeti; Ja jebkuru citu saistīt nav norādīta, tiek ignorēts vbVolume . Nav pieejams operētājsistēmā Macintosh datorā.

vbDirectory

16

Norāda direktorijus vai mapes papildus failiem bez atribūtiem.

vbAlias

64

Norādītais faila nosaukums ir aizstājvārds. Pieejams tikai Macintosh datorā.


Piezīme.: Šīs konstantes norāda Visual Basic for Applications (VBA), un var izmantot jebkur kodā reālo vērtību vietā.

Piezīmes

Operētājsistēmā Microsoft Windows Dir atbalsta vairākas rakstzīmes (*) un vienu rakstzīmi (?) aizstājējzīmes, lai norādītu vairākus failus izmantošanu. Macintosh datorā, šīs rakstzīmes tiek uzskatītas par derīgām faila nosaukuma rakstzīmēm un nevar izmantot kā aizstājējzīmes, lai norādītu vairākus failus.

Tā kā Macintosh neatbalsta aizstājējzīmes, izmantojiet failu tipu, lai identificētu failu grupas. Varat izmantot funkciju MacID , lai norādītu faila tipu, nevis izmantojot failu nosaukumus. Piemēram, šis priekšraksts atgriež pirmā teksta faila nosaukumu pašreizējā mapē:

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

Atkārtot virs visiem mapes failiem, norādiet tukšu virkni:

Dir("")

Ja izmantojat funkcija MacID ar Dir sistēmā Windows, rodas kļūda.

Jebkura atribūtu vērtība, kas ir lielāka par 256 tiek uzskatīta par MacID vērtību.

Ir jānorāda ceļa nosaukuma pirmā reize, kad zvanāt uz funkcija Dir vai rodas kļūda. Ja norādāt arī failu atribūtus, jāiekļauj ceļa nosaukums .

Dir atgriež pirmo faila nosaukumu, kas atbilst ceļa nosaukums. Lai iegūtu jebkuras papildu failu nosaukumus, kas atbilst ceļa _ nosaukumam, zvaniet Dir vēlreiz bez argumentiem. Ja nav vairāk failu nosaukumi sakrīt, Dir atgriež nulles garuma virkni (""). Kad tiek atgriezta nulles garuma virkni, ceļa nosaukums ir jānorāda turpmākus zvanus vai rodas kļūda. Varat mainīt jauno ceļa nosaukuma bez izgūstot visus failu nosaukumus, kas atbilst pašreizējam ceļa nosaukums. Tomēr jūs nevarat zvanu funkcija Dir rekursīvi. Zvanot Dir ar atribūtu vbDirectory nepārtraukti neatgriež apakšdirektorijus.

Padoms.     Tā failu nosaukumos tiek izgūti nekādā noteiktā secībā, iespējams, vēlēsities saglabāt atgrieztais failu nosaukumos masīvsun pēc tam kārtot masīva.

Piemērs.

Piezīme.: Turpmākajos piemēros redzama šīs funkcijas izmantošana Visual Basic for Applications (VBA) modulī. Lai iegūtu papildinformāciju par darbu ar VBA, nolaižamajā sarakstā atlasiet Uzziņas materiāli izstrādātājiem blakus meklēšanas lodziņam un ievadiet šajā lodziņā vienu vai vairākus vārdus.

Šajā piemērā funkcija Dir , lai pārbaudītu, ja pastāv dažas failus un direktorijus. Macintosh "HD:" ir noklusējuma diska nosaukums un ceļa nosaukuma daļas tiek atdalītas ar kolu, nevis atpakaļvērstās slīpsvītras. Arī Windows aizstājējzīmes tiek uzskatītas par derīgu faila nosaukuma rakstzīmēm Macintosh datorā. Tomēr jūs varat izmantot funkciju MacID , lai norādītu failu grupas.

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
Paplašiniet savas Office prasmes
Iepazīties ar apmācību
Esiet pirmais, kas saņem jaunās iespējas
Pievienoties Office Insider programmai

Vai šī informācija bija noderīga?

Paldies par jūsu atsauksmēm!

Paldies par atsauksmēm! Šķiet, ka varētu būt noderīgi sazināties ar kādu no mūsu Office atbalsta aģentiem.

×