CurDir, funksjon

Obs!: Vi ønsker å gi deg det nyeste hjelpeinnholdet så raskt som mulig, på ditt eget språk. Denne siden er oversatt gjennom automatisering og kan inneholde grammatiske feil eller unøyaktigheter. Formålet vårt er at innholdet skal være nyttig for deg. Kan du fortelle oss om informasjonen var nyttig for deg nederst på denne siden? Her er den engelske artikkelen for enkel referanse.

Obs!: Funksjonen, metoden, objektet eller egenskapen som er beskrevet i dette emnet er deaktivert hvis Microsoft Jet Expression Service kjører i sandkassemodus, som hindrer 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)]

Valgfri stasjonargument er 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 CurDir ignorerer en stasjon som er angitt, og returnerer ganske enkelt banen for gjeldende stasjon.

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 brukes CurDir -funksjonen til å returnere gjeldende bane. Stasjon spesifikasjoner gitt til CurDir ignoreres på Macintosh. Delene i banenavnet skilles med kolon i stedet for omvendte skråstreker stasjon standardnavnet er "HD". På samme måte kan angi 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".
Bli bedre på Office
Utforsk opplæring
Vær først ute med de nye funksjonene
Bli med i Office Insiders

Var denne informasjonen nyttig?

Takk for tilbakemeldingen!

Takk for tilbakemeldingen! Det høres ut som det kan være lurt å sette deg i kontakt med én av våre Office-kundestøtteagenter.

×