LibreOffice 7.1 žinynas
Pateikia eilutės variantą, kuris nusako dabartinį nurodyto disko kelią.
CurDir [(tekstas kaip eilutė)]
Eilutė
Tekstas: Bet kuri eilutės išraiška, nurodanti esamą diską (pvz., „C“ pirmojo kietojo disko pirmajam skaidiniui).
Jei diskas nenurodytas arba jei diskas yra nulinio ilgio eilutė (""), „CurDir“ grąžina dabartinio disko kelią. „LibreOffice Basic“ praneša apie klaidą, jei disko aprašo sintaksė yra neteisinga, disko nėra arba jei disko raidė atsiranda po raidės, apibrėžtos CONFIG.SYS naudojant „Lastdrive“ sakinį.
Ši funkcija neskiria didžiųjų ir mažųjų raidžių.
Sub ExampleCurDir
Dim sDir1 As String , sDir2 As String
sDir1 = "c:\Test"
sDir2 = "d:\Private"
ChDir( sDir1 )
MsgBox CurDir
ChDir( sDir2 )
MsgBox CurDir
End Sub