Funktsioon CurDir

Märkus. : Kui Microsoft Jet Expression Service töötab liivakastirežiimis, mis takistab potentsiaalselt ebaturvaliste avaldiste väärtustamist, on käesolevas artiklis kirjeldatud funktsioon, meetod, objekt või atribuut keelatud. Liivakastirežiimi kohta lisateabe saamiseks otsige spikrist sõna „liivakastirežiim”.

Tagastatakse variant (string), mis esindab praegust teed.

Süntaks

CurDir[(draiv)]

Valikuline draivargument on stringavaldis, mis määrab olemasoleva draivi. Kui draivi pole määratud või draiv on nullpikkusega string (""), siis tagastab CurDir praeguse draivi tee. Macintoshi korral CurDir ignoreerib määratud kettaid ja tagastab lihtsalt praeguse ketta tee.

Näide

Märkus. : Järgmised näited kujutavad selle funktsiooni kasutamist rakenduse Visual Basic for Applications (VBA) moodulis. Lisateabe saamiseks VBA-ga töötamise kohta valige välja Otsing kõrval kuvatavast ripploendist väärtus Tootearendusmaterjal ja sisestage otsinguväljale üks või mitu sõna.

Selles näites kasutatakse funktsiooni CurDir praeguse tee tagastamiseks. Macintoshi korral funktsiooni CurDir jaoks määratud draive ignoreeritakse. Vaikimisi on draivi nimi „HD“ ning teenime osad on kurakriipsude asemel eraldatud koolonitega. Kausta „\Windows“ asemel määratakse sel juhul Macintoshi kaust.

' 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".
Täiendage oma oskusi
Tutvuge koolitusmaterjalidega
Kasutage uusi funktsioone enne teisi
Liituge Office Insideri programmiga

Kas sellest teabest oli abi?

Täname tagasiside eest!

Täname tagasiside eest! Tundub, et võiksime teid kokku viia ühega meie Office'i tugiagentidest, kes aitab teil probleemi lahendada.

×