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