CurDir Function

Devuelve una cadena variante que representa la ruta d'accesu actual de la unidá especificada.

Iconu d'alvertencia

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


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.

Error codes:

5 Llamada a procedimientu non válida

68 Preséu non disponible

7 Memoria escosa

51 Fallu internu

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