Napomena: Funkcija, metoda, objekt ili svojstvo opisano u ovoj temi onemogućeno je ako je Microsoft Jet Expression Service pokrenut u načinu rada sigurnosne ograde, što onemogućuje procjenu potencijalno nesigurnih izraza. Dodatne informacije o načinu rada sigurnosne ograde potražite u pomoći u odjeljku "način rada s memorijom za testiranje".
Vraća vrijednost Variant (Niz) koja predstavlja trenutni put.
Sintaksa
CurDir[(pogon)]
Neobavezni pogonargument je nizovni izraz koji određuje postojeći pogon. Ako pogon nije naveden ili je pogon niz nulte duljine (""), CurDir vraća put za trenutni pogon. Na Macintoshu CurDir zanemaruje sve navedene pogone i jednostavno vraća put za trenutni pogon.
Primjer
Napomena: Primjeri koji slijede prikazuju korištenje te funkcije u modulu jezika Visual Basic for Applications (VBA). Da biste pronašli dodatne informacije o radu s VBA-om, na padajućem popisu uz stavku Traži odaberite stavku Referenca za razvojne inženjere pa unesite jedan ili više izraza u okvir pretraživanja.
U ovom se primjeru koristi funkcija CurDir za vraćanje trenutnog puta. Na Macintoshu se specifikacije pogona dodijeljene curDir-u zanemaruju. Zadani je naziv pogona "HD", a dijelovi naziva puta razdvojeni su dvotočkama umjesto obručom kosom crtom. Isto tako, naveli biste mape macintosh umjesto \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".
