Función CurDir
Devuelve una cadena variant que representa la ruta de acceso actual de la unidad especificada.
Sintaxis:
CurDir [(Texto As String)]
Valor de retorno:
Cadena
Parámetros:
Texto: Cualquier expresión de cadena que especifique una unidad existente (por ejemplo, "C" para la primera partición de la primera unidad de disco duro).
Si no se ha especificado ninguna unidad o ésta es una cadena de longitud cero (""), CurDir devuelve la ruta de acceso para la unidad actual. LibreOffice Basic informa de un error si la sintaxis de la descripción de la unidad es incorrecta, ésta no existe o su letra es posterior a la definida en CONFIG.SYS con la instrucción Lastdrive.
Esta función no distingue entre mayúsculas y minúsculas.
Ejemplo:
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