Функція CurDir

Повертає рядок типу Variant, що представляє поточний шлях на вказаному диску.

Піктограма Попередження

Ця інструкція в даний час працює не так, як зазначено в документації. Для отримання додаткової інформації див.цю проблему.


Синтаксис:

CurDir [(Текст As String)]

Значення, що повертається:

Рядок

Параметри:

Текст: будь-який рядковий вираз, що визначає існуючий диск (наприклад, "C" для першого розділу першого жорсткого диску).

Якщо диск не вказаний або вказаний рядок нульової довжини (""), то CurDir повертає шлях для поточного диску. LibreOffice Basic повідомляє про помилку, якщо синтаксис опису диска неправильний, диск не існує або буква диску знаходиться після букви, визначеної в CONFIG.SYS інструкцією Lastdrive.

Дана функція не враховує регістр символів.

Коди помилок:

5 Неправильний виклик процедури

68 Пристрій недоступний

7 Не вистачає пам'яті

51 Внутрішня помилка

Приклад:

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