IBM Lotus Symphony
|
Vrne niz različice, ki predstavlja trenutno pot podanega pogona.
![]() |
Ta stavek izvajalnega okolja trenutno ne deluje, kot opisano v dokumentaciji. |
CurDir [(Text As String)]
Niz
Text: Katerikoli nizovni izraz, ki podaja obstoječi pogon (na primer "C" za prvo particijo prvega trdega diska).
Če ni podan noben pogon ali če je pogon niz z dolžino nič (""), funkcija CurDir vrne pot za trenutni pogon. V primeru, da je skladnja opisa pogona napačna, pogon ne obstaja ali pa se črka pogona pojavi za črko, definirano v CONFIG.SYS s stavkom Lastdive, Lotus® Symphony™ Basic sporoči napako.
Ta funkcija ne razlikuje med velikimi in malimi črkami.
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