Obs!: Funksjonen, metoden, objektet eller egenskapen som beskrives i dette emnet, er deaktivert hvis Microsoft Jet Expression Service kjører i sandkassemodus, noe som forhindrer evaluering av potensielt usikre uttrykk. Hvis du vil ha mer informasjon om sandkassemodus, kan du søke etter «sandkassemodus» i Hjelp.
Returnerer en streng som representerer navnet på en fil, katalog eller mappe som samsvarer med et angitt mønster eller filattributt, eller volumetiketten for en stasjon.
Syntaks
Dir[(pathname [, attributter] )]
Syntaksen for funksjonen Dir har følgende argumenter:
|
Argument |
Beskrivelse |
|
Banenavn |
Valgfritt. Strenguttrykk som angir et filnavn , kan inneholde katalog eller mappe og stasjon. En tom streng ("") returneres hvis banenavnet ikke blir funnet. |
|
Attributter |
Valgfritt. Konstant eller numerisk uttrykk, der summen angir filattributter. Hvis den utelates, returneres filer som samsvarer med banenavn , men som ikke har noen attributter. |
Innstillinger
Attributtene argument innstillingene er:
|
Konstant |
Verdi |
Beskrivelse |
|
vbNormal |
0 |
(Standard) Angir filer uten attributter. |
|
vbReadOnly |
1 |
Angir skrivebeskyttede filer i tillegg til filer uten attributter. |
|
vbHidden |
2 |
Angir skjulte filer i tillegg til filer uten attributter. |
|
VbSystem |
4 |
Angir systemfiler i tillegg til filer uten attributter. Ikke tilgjengelig på Macintosh. |
|
vbVolume |
8 |
Angir volumetikett; hvis et annet attributt er angitt, ignoreres vbVolume . Ikke tilgjengelig på Macintosh. |
|
vbDirectory |
16 |
Angir mapper eller mapper i tillegg til filer uten attributter. |
|
vbAlias |
64 |
Det angitte filnavnet er et alias. Bare tilgjengelig på Macintosh. |
Obs!: Disse konstantene angis av Visual Basic for Applications (VBA) og kan brukes hvor som helst i koden i stedet for de faktiske verdiene.
Merknader
I Microsoft Windows støtter Dir bruk av jokertegn med flere tegn (*) og enkelttegn (?) til å angi flere filer. På Macintosh behandles disse tegnene som gyldige filnavntegn og kan ikke brukes som jokertegn for å angi flere filer.
Siden Macintosh ikke støtter jokertegnene, kan du bruke filtypen til å identifisere grupper med filer. Du kan bruke MacID-funksjonen til å angi filtype i stedet for å bruke filnavnene. Følgende setning returnerer for eksempel navnet på den første TEKST-filen i gjeldende mappe:
Dir("SomePath", MacID("TEXT"))
Hvis du vil gjenta alle filene i en mappe, angir du en tom streng:
Dir("")
Hvis du bruker MacID-funksjonen med Dir i Windows, oppstår det en feil.
Alle attributtverdier som er større enn 256, regnes som en MacID-verdi .
Du må angi banenavn første gang du kaller Dir-funksjonen , ellers oppstår det en feil. Hvis du også angir filattributter, må banenavn inkluderes.
Dir returnerer det første filnavnet som samsvarer med banenavn. Hvis du vil hente eventuelle andre filnavn som samsvarer med banenavnet, kaller du Dir på nytt uten argumenter. Når ingen flere filnavn samsvarer, returnerer Dir en tom streng (""). Når en tom streng returneres, må du angi banenavn i etterfølgende kall, ellers oppstår det en feil. Du kan endre til et nytt banenavn uten å hente alle filnavnene som samsvarer med gjeldende banenavn. Du kan imidlertid ikke kalle Dir-funksjonen rekursivt. Kalling av Dir med vbDirectory-attributtet returnerer ikke kontinuerlig underkataloger.
Tips Fordi filnavn hentes i ingen bestemt rekkefølge, kan det hende du vil lagre returnerte filnavn i en matrise, og deretter sortere matrisen.
Eksempel
Obs!: I eksemplene nedenfor vises bruken av denne funksjonen i en VBA-modul (Visual Basic for Applications). Hvis du vil ha mer informasjon om hvordan du arbeider med VBA, velger du Utviklerreferanse fra rullegardinlisten ved siden av Søk og skriver inn ett eller flere søkeord i søkeboksen.
Dette eksemplet bruker Dir-funksjonen til å kontrollere om bestemte filer og kataloger finnes. På Macintosh er HD:standard stasjonsnavn, og deler av banenavnet er atskilt med kolon i stedet for omvendte skråstreker. Jokertegnene i Windows behandles også som gyldige filnavntegn på Macintosh. Du kan imidlertid bruke MacID-funksjonen til å angi filgrupper.
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
