CurDir Function
Devuelve una cadena variante que representa la ruta d'accesu actual de la unidá especificada.
Sintaxis:
CurDir [(Testu As String)]
Valor de torna:
Cadena
Parámetros:
Testu: Cualquier espresión de cadena qu'especifique una unidá esistente (por exemplu, "C" pa la primer partición de la primer unidá de discu duru).
Si nun s'especificó nenguna unidá o ésta ye una cadena de longitud cero (""), CurDir devuelve la ruta d'accesu pa la unidá actual. LibreOffice Basic informa d'un fallu si la sintaxis de la descripción de la unidá ye incorrecta, ésta nun esiste o la so lletra ye posterior a la definida en CONFIG.SYS cola instrucción Lastdrive.
Esta función nun estrema ente mayúscules y minúscules.
Exemplu:
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