Napomena: Funkcija, metod, objekat ili svojstvo opisano u ovoj temi onemogućena je ako je usluga Microsoft Jet Expression pokrenuta u režimu sandbox, što sprečava procenu potencijalno nebezbednih izraza. Više informacija o režimu "sandbox" potražite u odeljku "režim sandbox" u pomoći.
Vraća tip podataka Varijanta (Niska) koji predstavlja trenutnu putanju.
Sintaksa
CurDir[(diskjedinica)]
Opcionalna disk jedinicaargument je izraz niske koja navodi postojeću disk jedinicu. Ako nije navedena disk jedinica ili ako je disk jedinica niska nulte dužine (""), CurDir vraća putanju za trenutnu disk jedinicu. Na Macintosh računaru CurDir zanemaruje navedenu disk jedinicu i jednostavno vraća putanju za trenutnu disk jedinicu.
Primer
Napomena: Primeri koji slede pokazuju upotrebu ove funkcije u Visual Basic for Applications (VBA) modulu. Za više informacija o radu sa VBA modulom izaberite stavku Referenca razvojnog programera sa padajuće liste pored stavke Pretraga i unesite termine u polje za pretragu.
Ovaj primer koristi funkciju CurDir za vraćanje trenutne putanje. Na Macintosh računaru, specifikacije disk jedinice date funkciji CurDir se zanemaruju. Podrazumevano ime disk jedinice je "HD", a delovi imena putanje razdvojene su dvotačkama umesto kosim kosim kosim crtama. Slično tome, trebalo bi da navedete Macintosh fascikle umesto \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".
