例: CurDrive function

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