Pastaba
Šioje temoje aprašyta funkcija, metodas, objektas arba ypatybė išjungiama, jei "„Microsoft“ Jet" reiškinių tarnyba veikia smėlio dėžės režimu, kuris neleidžia įvertinti potencialiai nesaugių reiškinių. Daugiau informacijos apie smėlio dėžės režimą ieškokite žinyne "smėlio dėžės režimas".
Pateikia variantą (eilutę), nurodantį dabartinį kelią.
Sintaksė
CurDir[(diskas)]
Pasirinktinio diskoargumentas yra eilutės reiškinys, nurodantis esamą diską. Jei joks diskas nenurodytas arba jei diskas yra nulinio ilgio eilutė (""), CurDir grąžina dabartinio disko kelią. "Macintosh" sistemoje "CurDir " ignoruoja bet kurį nurodytą diską ir tiesiog grąžina esamo disko kelią.
Pavyzdys
Pastaba
Pateiktuose pavyzdžiuose parodyta, kaip naudoti šią funkciją „Visual Basic for Applications“ (VBA) modulyje. Daugiau informacijos apie darbą su VBA rasite išplečiamajame sąraše pasirinkę Kūrėjų nuoroda (šalia Ieškos) ir ieškos lauke įvedę vieną ar daugiau sąlygų.
Šiame pavyzdyje naudojama funkcija CurDir dabartiniam keliui pateikti. Macintosh diskų specifikacijos, pateiktos CurDir , yra ignoruojamos. Numatytasis disko pavadinimas yra "HD" ir kelio pavadinimo dalys atskirtos dvitaškiais, o ne kairėn pasvirusiais brūkšniais. Taip pat reikėtų nurodyti "Macintosh" aplankus vietoj \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".