CurDir Function

Liveras variantan ĉenon kiu montras la aktualan vojprefikson de la specifita diskingo.

This statement currently does not work as documented. See this issue for more information.

Sintakso:

CurDir [(Text As String)]

Liverota valoro:

Ĉeno

Parametroj:

Text: Ĉena esprimo kiu specifas ekzistantan diskingon (ekzemple, "C" por la unua diskparto de la unua fiksita disko.

Se oni ne specifis diskingon, aŭ se la ĝi estas senlonga ĉeno (""), CurDir liveras la vojprefikson de la aktuala diskingo. LibreOffice Basic raportas eraron se la sintakso de la diskingo estas malĝusta, se la diskingo ne ekzistas, aŭ se la inga litero troviĝas post la litero difinita en la dosiero CONFIG.SYS kun la ordono LastDrive.

Ĉi tiu funkcio ne estas usklecodistinga.

Error codes:

5 Nevalida procedurvoko

68 Aparato ne disponebla

7 Ne sufiĉe da memoro

51 Interna eraro

Ekzemplo:

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