Obsah

# Funkce CurDir

Vrátí řetězec, který představuje aktuální cestu na určeném disku v systému Windows.

Některé funkce pracující se soubory a adresáři, jež jsou specifické pro operační systém DOS, již nejsou v LibreOffice podporovány nebo fungují omezeně. Například nejsou podporovány funkce ChDir, ChDrive a CurDir. Některé vlastnosti specifické pro DOS se již nepoužívají ve funkcích, které očekávají vlastnosti souboru jako parametry (například odlišení skrytých a systémových souborů). Tím je zajištěna největší možná nezávislost LibreOffice na platformě, na které běží. Proto budou tyto funkce v následných vydáních odstraněny.

Knihovna ScriptForge obsahuje od LibreOffice verze 7.1 službu FileSystem, jejíž metody umožňují pracovat v uživatelských skriptech se soubory a složkami.

### Syntaxe:

    CurDir [(Text As String)]

## Návratová hodnota:

Řetězec

### Parametry:

Text: Řetězec určující existující jednotku, například "C" pro první diskovou oblast na prvním pevném disku. Tento parametr se používá výhradně v systému Windows.

Pokud není určena jednotka nebo je určena prázdným řetězcem (""), vrátí CurDircestu pro aktuální jednotku. LibreOffice Basic ohlásí chybu, je-li syntaxe určení jednotky nesprávná nebo jednotka neexistuje.

Tato funkce nerozlišuje malá a velká písmena.

### Chybové kódy:

5 Neplatné volání procedury

68 Zařízení není dostupné

7 Nedostatek paměti

51 Interní chyba

### Příklad:

      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

Související témata

Služba ScriptForge.FileSystem

Služba ScriptForge.TextStream