Opomba: V tej temi opisana funkcija, metoda, predmet ali lastnost, je onemogočena, če se izvaja storitev Microsoft Jet Expression Service v načinu peskovnika, ki preprečuje vrednotenje morebitno nevarnih izrazov. Za več informacij o načinu peskovnika poiščite »način peskovnika« v pomoči.
Vrne podatkovni tip Variant (niz), ki predstavlja trenutno pot.
Sintaksa
CurDir[(pogon)]
Izbirni pogonargument je izraz niza, ki določa obstoječi pogon. Če pogon ni naveden ali je pogon je niz ničelne dolžine (""), CurDir vrne pot za trenutni pogon. V računalniku Macintosh, CurDir prezre vse navedene pogone in preprosto vrne pot za trenutni pogon.
Primer
Opomba: V spodnjih primerih je prikazana uporaba te funkcije v modulu Visual Basic for Applications (VBA). Če želite več informacij o delu z modulom VBA, izberite Vsebina za razvijalce na spustnem seznamu ob možnosti Iskanje in v iskalno polje vnesite enega ali več izrazov.
V tem primeru je uporabljena funkcija CurDir za vrnitev trenutne poti. V računalniku Macintosh se navedbe pogona, podane za CurDir ne upoštevajo. Privzeto ime pogona je »HD« in deli imena poti so med seboj ločeni z dvopičjem, namesto s poševnico nazaj. Prav tako določite mape Macintosh, namesto \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".