Функція CurDir
Повертає рядок типу Variant, що представляє поточний шлях на вказаному диску.
Синтаксис:
CurDir [(Текст As String)]
Значення, що повертається:
Рядок
Параметри:
Текст: будь-який рядковий вираз, що визначає існуючий диск (наприклад, "C" для першого розділу першого жорсткого диску).
Якщо диск не вказаний або вказаний рядок нульової довжини (""), то CurDir повертає шлях для поточного диску. LibreOffice Basic повідомляє про помилку, якщо синтаксис опису диска неправильний, диск не існує або буква диску знаходиться після букви, визначеної в CONFIG.SYS інструкцією Lastdrive.
Дана функція не враховує регістр символів.
Приклад:
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