CurDir Function

Возвращает строку типа Variant, представляющую текущий путь на указанном диске.

Значок предупреждения

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


Синтаксис

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

Возвращаемое значение:

String

Параметры:

Текст. Любое строковое выражение, указывающее существующий диск (например, "С" для первого раздела первого жёсткого диска).

Если диск не указан или указан строкой нулевой длины (""), CurDir возвращает путь для текущего диска. LibreOffice Basic сообщает об ошибке, если синтаксис описания диска неверен, диск не существует или буква диска находится после буквы, определенной в CONFIG.SYS инструкцией Lastdrive.

Данная функция не учитывает регистр символов.

Error codes:

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