CurDir Function
Возвращает строку типа Variant, представляющую текущий путь на указанном диске.
Синтаксис
CurDir [(Текст As String)]
Возвращаемое значение:
String
Параметры:
Текст. Любое строковое выражение, указывающее существующий диск (например, "С" для первого раздела первого жёсткого диска).
Если диск не указан или указан строкой нулевой длины (""), 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