CurDir funkcija

Pateikia eilutės variantą, kuris nusako dabartinį nurodyto disko kelią.

Šis sakinys šiuo metu neveikia kaip parašyta. Dar žr. this issue.

Sintaksė:


CurDir [(tekstas kaip eilutė)]

Grąžinama reikšmė:

Eilutė

Parametrai:

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ų.

Klaidos kodai:

5 Neteisingas procedūros iškvietimas

68 Prietaisas nėra pasiekiamas

7 nepakanka atminties

51 vidinė klaida

Pavyzdys:


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