Conteúdo

# Função CurDir

Devolve uma cadeia de caracteres variante que representa o caminho atual ou o da unidade do Windows especificada.

Algumas funções específicas do DOS relacionadas com ficheiros e diretórios já não estão disponíveis no LibreOffice, ou a sua funcionalidade é limitada. Por exemplo, não é fornecido suporte para as funções ChDir, ChDrive e CurDir. Algumas propriedades específicas do DOS já não são utilizadas em funções que esperam propriedades de ficheiros como parâmetros (por exemplo, para diferenciar ficheiros ocultos e ficheiros de sistema). Isto garante o maior nível possível de independência de plataforma para o LibreOffice. Por conseguinte, esta funcionalidade está sujeita a remoção numa versão futura.

A biblioteca ScriptForge do LibreOffice 7.1 introduz o serviço FileSystem, com métodos para gerir ficheiros e pastas em scripts do utilizador.

### Sintaxe:

    CurDir [(Text As String)]

## Valor de retorno:

Cadeia

### Parâmetros:

Texto: Qualquer expressão de cadeia de caracteres que especifique uma unidade existente, por exemplo, «C» para a primeira partição do primeiro disco rígido. Este parâmetro é utilizado exclusivamente no Windows.

Se não for especificada nenhuma unidade ou se a unidade for uma cadeia de caracteres de comprimento zero (""), CurDir devolve o caminho da unidade atual. O LibreOffice Basic apresenta um erro se a sintaxe da descrição da unidade estiver incorreta ou se a unidade não existir.

Esta função não diferencia maiúsculas de minúsculas.

### Códigos de erro

5 Chamada de procedimento inválido

68 Dispositivo não disponível

7 Sem memória suficiente

51 Erro interno

### Exemplo:

      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

Tópicos relacionados

ScriptForge.FileSystem serviço

ScriptForge.TextStream service

Necessitamos da sua ajuda!