CurDir Function

Vraća variant string koji predstavlja trenutnu putanju na specifiranom disku.

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

Syntax:

CurDir [(Text As String)]

Povratna vrijednost

Znakovni niz

Parametri:

Text: Any string expression that specifies an existing drive (for example, "C" for the first partition of the first hard drive).

Ako niti jedna jedinica nije specifirana ili ako je jedinica prazan string (""), CurDir vraća put za trenutnu jedinicu. LibreOffice Basic javlja grešku akoje sintaksa specifikacije jedinice neispravna, jedinica ne postoji ili ako se slovo jedinice javlja poslije slova deinfiranog u CONFIG.SYS-u sa Lastdrive izrazom.

Navedena funkcija nije osjetljiva na mala i velika slova.

Error codes:

5 Invalid procedure call

68 Device not available

7 nedovoljno memorije

51 Interna greška

Primjer:

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