Pastaba: Šioje temoje aprašyta funkcija, metodas, objektas arba ypatybė yra išjungta, jei "Microsoft Jet Expression Service" veikia smėlio dėžės režimu, kuris neleidžia įvertinti galimai nesaugių reiškinių. Jei reikia daugiau informacijos apie smėlio dėžės režimą, žinyne ieškokite "smėlio dėžės režimas".
Pateikia variantą (eilutę), reiškiantį dabartinį kelią.
Sintaksė
CurDir[(diskas)]
Pasirinktinis diskoargumentas yra eilutės išraiška, nurodantis esamą diską. Jei nenurodytas joks diskas arba jei diskas yra nulinio ilgio eilutė (""), CurDir grąžins dabartinio disko kelią. Macintosh įrenginyje CurDir nepaiso nurodyto disko ir tiesiog grąžina dabartinio 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 , kad būtų pateiktas dabartinis kelias. Macintosh įrenginyje loginio disko specifikacijų, nurodytų CurDir , nepaisoma. Numatytasis disko pavadinimas yra HD, o kelio pavadinimo dalys atskiriamos dvitaškiais, o ne pasviraisiais brūkšniais. Taip pat turėtumėte 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".
