Napomena
Funkcija, metoda, objekt ili svojstvo opisani u ovoj temi onemogućeni su ako je servis izraza Microsoft Jet pokrenut u načinu rada s memorijom za testiranje, što sprječava procjenu potencijalno nesigurnih izraza. Dodatne informacije o načinu rada s memorijom za testiranje potražite u pomoći "način rada s memorijom za testiranje".
Vraća vrijednost Variant (niz) koja predstavlja trenutni put.
Sintaksa
CurDir[(pogon)]
Argument neobaveznog pogonanizovni je izraz koji određuje postojeći pogon. Ako pogon nije naveden ili je pogon niz nulte duljine (""), CurDir vraća put do trenutnog pogona. Na računalu Macintosh CurDir zanemaruje sve navedene pogone i jednostavno vraća put do trenutnog pogona.
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 računalu Macintosh specifikacije pogona dane CurDiru se zanemaruju. Zadani je naziv pogona "HD", a dijelovi naziva puta odvojeni su dvotočkama, a ne obrnutim kosim crtama. Slično tome, umjesto \Windows, naveli biste mape Macintosh.
' 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".