Bemærk!: Funktionen, metoden, objektet eller egenskaben, der er beskrevet i dette emne, deaktiveres, hvis Microsoft Jet Expression Service kører i sandkassetilstand, hvilket forhindrer evalueringen af potentielt usikre udtryk. Søg efter "sandkassetilstand" i Hjælp, hvis du vil have mere at vide om sandkassetilstand.
Returnerer en variant (streng), der repræsenterer den aktuelle sti.
Syntaks
CurDir[(drev)]
Det valgfrie drevargument er en strengudtryk , der angiver et eksisterende drev. Hvis der ikke er angivet noget drev, eller hvis drev er en streng af længden nul (""), returnerer CurDir stien til det aktuelle drev. På Macintosh ignorerer CurDir ethvert drev , der er angivet, og returnerer blot stien til det aktuelle drev.
Eksempel
Bemærk!: Følgende eksempler demonstrerer brugen af denne funktion i et VBA-modul (Visual Basic for Applications). Hvis du vil have mere at vide om at arbejde med VBA, skal du vælge Udviklerreference på rullelisten ud for Søg og skrive ét eller flere ord i søgefeltet.
I dette eksempel bruges funktionen CurDir til at returnere den aktuelle sti. På Macintosh ignoreres drevspecifikationer , der er givet til CurDir . Standarddrevnavnet er "HD", og dele af stinavnet er adskilt af kolon i stedet for omvendte skråstreger. På samme måde skal du angive 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".
