Examples: CurDrive function
Dim tempDrive As String
tempDrive$ = CurDrive$()
If tempDrive$ <> "c:" Then
ChDrive "c"
End If
ChDir "\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"