Funkcija CurDir

Napomena: Funkcija, način, objekt ili svojstvo opisano u ovoj temi onemogućeno je ako je Microsoft Jet Expression servis pokrenut u načinu rada s izdvojenom funkcijom, čime se sprječava vrednovanje potencijalno nesigurnih izraza. Dodatne informacije o načinu rada s izdvojenom pomoću pretraživanja potražite u odjeljku "Izdvojeni način rada".

Vraća varijantu (niz) koja predstavlja sadašnji put.

Sintaksa

Kurdir[(pogon)]

Neobavezan pogonargumentnizovni izraz je koji određuje postojeći pogon. Ako nijedan pogon nije naveden ili ako je pogon niz nulte duljine (""), kurdir vraća put za sadašnji pogon. Na Macintoshu Kurdir ignorira bilo koji pogon naveden i jednostavno vraća put za sadašnji 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 funkcija CurDir koristi za vraćanje sadašnjeg puta. Na Macintoshu se zanemaruju specifikacije pogona koje se daju kurdir . Zadani naziv pogona jest "HD", a dijelovi naziva programa, odvojeni su primjerci, umjesto backslapova. Na sličan način naveli biste mape Macintosha 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".

Potrebna vam je dodatna pomoć?

Proširite svoje vještine korištenja sustava Office
Istražite osposobljavanje

Jesu li vam ove informacije bile korisne?

×