CurDir Function
Tagastab variandistringi, mis tähistab määratud ketta praegust teed.
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.
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