Huomautus
Tässä ohjeaiheessa kuvattu funktio, menetelmä, objekti tai ominaisuus ei ole käytössä, jos Microsoft Jet Expression Service toimii eristetyssä tilassa, mikä estää mahdollisesti vahingollisten lausekkeiden arvioimisen. Katso lisätietoja eristetystä tilasta ohjeen ”Eristetty tila” -kohdasta.
Palauttaa nykyistä polkua edustavan variantin (merkkijonon).
Syntaksi
CurDir[(asema)]
Valinnainen asema-argumenttion merkkijonolauseke, joka määrittää aiemmin luodun aseman. Jos asemaa ei ole määritetty tai jos asema on tyhjä merkkijono (""), CurDir palauttaa nykyisen aseman polun. Macintoshissa CurDir ohittaa kaikki määritetyt asemat ja palauttaa vain nykyisen aseman polun.
Esimerkki
Huomautus
Seuraavissa esimerkeissä kerrotaan, kuinka tätä funktiota käytetään Visual Basic for Applications (VBA) -moduulissa. Jos haluat lisätietoja VBA:n käytöstä, valitse Sovelluskehittäjän opasHaku-kentän viereisestä luettelosta ja anna yksi tai useampi hakuehto hakukenttään.
Tässä esimerkissä CurDir-funktiolla palautetaan nykyinen polku. Macintoshissa CurDirille annetut aseman määritykset ohitetaan. Aseman oletusnimi on "HD" ja polkunimen osia erottavat toisistaan kaksoispisteet kenoviivojen sijasta. Vastaavasti \Windowsin sijasta määritetään Macintosh-kansiot.
' 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".