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 variant (streng) som representerer gjeldende bane.
Syntaks
CurDir[(stasjon)]
Den valgfrie stasjonenargument er en strenguttrykk som angir en eksisterende stasjon. Hvis ingen stasjon er angitt, eller hvis stasjonen er en tom streng (""), returnerer CurDir banen for gjeldende stasjon. På Macintosh ignorerer CurDir en stasjon som er angitt, og returnerer ganske enkelt banen for den gjeldende stasjonen.
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 CurDir-funksjonen til å returnere gjeldende bane. På Macintosh ignoreres stasjonsspesifikasjoner gitt til CurDir. Standard stasjonsnavn er HD, og deler av banenavnet er atskilt med kolon i stedet for omvendte skråstreker. På samme måte angir du Macintosh-mapper i stedet for \Windows.
' Assume current path on C drive is "C:\WINDOWS\SYSTEM" (on Microsoft Windows).
' Assume current path on D drive is "D:\EXCEL".
' Assume C is the current drive.
Dim MyPath
MyPath = CurDir ' Returns "C:\WINDOWS\SYSTEM".
MyPath = CurDir("C") ' Returns "C:\WINDOWS\SYSTEM".
MyPath = CurDir("D") ' Returns "D:\EXCEL".
