LOTUSSCRIPT LANGUAGE
Examples: CurDrive function
Dim tempDrive As String
tempDrive$ = CurDrive$()
If tempDrive$ <> "c:" Then
  ChDrive "c"
End If
ChDir "\test"
Print CurDir$()   ' Prints "c:\test"

See Also