Contenido

# Función CurDir

Devuelve una cadena variante que representa la ruta actual o la de la unidad de Windows especificada.

Algunas funciones de archivos y directorios específicas de DOS ya no están disponibles en LibreOffice, o su funcionalidad es limitada. Por ejemplo, no se ofrece compatibilidad con las funciones ChDir, ChDrive y CurDir. Algunas propiedades específicas de DOS ya no se utilizan en funciones que esperan propiedades de archivo como parámetros (por ejemplo, para diferenciar entre archivos ocultos y archivos de sistema). Esto garantiza el mayor nivel posible de independencia de plataforma para LibreOffice. Por lo tanto, esta prestación está sujeta a eliminación en una versión futura.

La biblioteca ScriptForge en LibreOffice 7.1 presenta el servicio FileSystem con métodos para manejar archivos y carpetas en scripts de usuario.

### Sintaxis:

    CurDir [(Text As String)]

## Valor de retorno:

Cadena

### Parámetros:

Text: Cualquier cadena de texto que especifique una unidad existente, por ejemplo "C" para la primera partición del primer disco duro. Este parámetro se utiliza únicamente en Windows.

Si no se especifica ninguna unidad o si la unidad es una cadena de longitud cero (""), CurDir devuelve la ruta de la unidad actual. LibreOffice Basic informa de un error si la sintaxis de la descripción de la unidad es incorrecta o si la unidad no existe.

Esta función no distingue entre mayúsculas y minúsculas.

### Códigos de error:

5 Llamada a procedimiento no válida

68 Dispositivo no disponible

7 Memoria agotada

51 Error interno

### 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

Temas relacionados

Servicio ScriptForge.FileSystem

Servicio ScriptForge.TextStream

¡Necesitamos su ayuda!