CurDir Function

Vraca varijantu znaka koji predstavalja prenutni polozaj odredjenog drajva.

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

Sintaksa:

CurDir [(Tekst kao Znak)]

Vrati vrijednost:

Stringovi

Parametri:

Text: Bilo koji znakovni izraz koji oznacava postojeci darjv (na primjer, "C" zaprvu particiju prvoj hard drajva).

Ako niti jedan drajv nije specificiran, ili ako je drajv znak duzine nula (""), CurDir vraca oznaku za trenutni drajv. LibreOffice Basic izvjestava o greskama, ako je sintaksa drajva netacna, drajv ne postoji, ili ako se slovo pojavi poslije slova definisanog u CONFIG.SYS sa Lastdrive izjavom.

This function is not case-sensitive.

Error codes:

5 Invalid procedure call

68 Device not available

7 Nema dovoljno 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