Funkce CurDir
Vrátí řetězec, který představuje aktuální cestu na určené jednotce.
Syntaxe:
CurDir [(Text As String)]
Návratová hodnota:
Řetězec
Parametry:
Text: Řetězec určující existující jednotku (např. "C" pro první diskovou oblast na prvním pevném disku).
Pokud není určena jednotka nebo je určena prázdným řetězcem (""), vrátí CurDir cestu pro současnou jednotku. LibreOffice Basic ohlásí chybu, je-li syntaxe určení jednotky nesprávná, jednotka neexistuje nebo je zadaný znak vyšší než znak určený v CONFIG.SYS příkazem Lastdrive.
Tato funkce nerozlišuje malá a velká písmena.
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