Axuda do LibreOffice 7.1
Devolve unha cadea variante que representa o camiño actual da unidade de disco especificada.
CurDir [(Texto As String)]
Cadea
Text: Any string expression that specifies an existing drive (for example, "C" for the first partition of the first hard drive).
Se non hai unha unidade de disco especificada ou se a unidade é unha cadea de lonxitude cero (""), CurDir devolve o camiño da unidade actual. LibreOffice Basic informa dun erro se a sintaxe da descrición da unidade de disco é incorrecta, non existe ou a súa letra é posterior á letra definida en CONFIG. SYS coa instrución Lastdrive.
Esta función non distingue entre maiúsculas e minúsculas.
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