Module
Contents
Index 🔎︎

# CurDir Function

Tagastab variandistringi, mis tähistab määratud ketta praegust teed.

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

## Süntaks:

    CurDir [(Text As String)]

## Tagastusväärtus:

String

## Parameetrid:

Text: suvaline stringavaldis, mis määrab olemasoleva ketta (nt C esimese kõvaketta esimese partitsiooni korral).

Kui ketast pole määratud või kui ketas on nullpikkusega string (""), siis tagastab CurDir praeguse ketta tee. Kui ketta kirjelduse süntaks on vale, ketast pole olemas või kui ketta täht on pärast failis CONFIG.SYS lausega Lastdrive määratud tähte, siis kuvab LibreOffice veateate.

See funktsioon ei ole tõstutundlik.

## Error codes:

5 Vigane protseduuri väljakutse

68 Seade ei ole kättesaadav

7 Vaba mälu pole piisavalt

51 Sisemine viga

## Näide:

    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