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 variantin (merkkijonon), joka edustaa nykyistä polkua.
Syntaksi
CurDir[(asema)]
Valinnainen asemanargumentti on 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ä käytetään CurDir-funktiota nykyisen polun palauttamiseen. Macintoshissa CurDirille annetut asemamääritykset ohitetaan. Aseman oletusnimi on HD ja polun nimen osat on erotettu kaksoispisteillä kenoviivan sijaan. 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".
