Examples: CurDrive function

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