Funkcija „CurDir“

Napomena: Želimo da vam što pre pružimo najnoviji sadržaj pomoći čim na vašem jeziku. Ova stranica je prevedena automatski i može da sadrži gramatičke greške ili netačnosti. Naš cilj je da ovaj sadržaj bude koristan. Možete li nam na dnu ove stranice saopštiti da li su vam informacije bile od koristi? Ovo je članak na engleskom jeziku za brzu referencu.

Napomena: Funkcija, metod, objekat ili svojstvo opisane u ovoj temi je onemogućen ako Microsoft Jet Expression usluge pokrenut u "sandbox" režim, što sprečava od potencijalno nebezbedne izraze. Za više informacija o "sandbox" režim potražite”„sandbox „režim” u pomoći.

Daje na varijante (Niska) koji predstavlja trenutnu putanju.

Sintaksa

CurDir [(disk jedinicu)]

Opcionalno diskargument je izraz niske koja navodi postojeću disk jedinicu. Ako nema disk jedinica nije navedena ili ako je disk jedinica niske nulte dužine ("”), CurDir vraća putanju za trenutnu disk jedinicu. Na Macintosh CurDir zanemaruje sve disk jedinica naveden 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. Ako vam je potrebno više informacija o radu sa VBA modulom, izaberite stavku Referenca razvojnog programera sa padajuće liste pored stavke Pretraga i unesite jedan ili više termina u polje za pretragu.

Ovaj primer koristi funkciju CurDir da biste dobili trenutnu putanju. Na Macintosh disk jedinici specifikacije dato CurDir se zanemaruju. Ime podrazumevane disk jedinice je „HD” i delovi imena putanje su razdvojene tačkom i zarezom umesto obrnute kose crte. Slično tome, možete 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".
Razvijte Office veštine
Istražite obuku
Prvi nabavite nove funkcije
Pridružite se Office Insider korisnicima

Da li su vam ove informacije koristile?

Hvala vam na povratnim informacijama!

Hvala za povratne informacije! Zvuči da će biti od pomoći ako vas povežemo sa našim agentima Office podrške.

×