ChDrive statement

ChDrive drivename

Changes the default drive.

The parameter drivename is a string and must correspond to a an existing drive. If drivename contains more than one letter, only the first character is used.

Sub Main()
   Dim Msg, NL   ' Declare variables.
   NL = Chr(10)   ' Define newline.
   CurPath = CurDir()   ' Get current path.
   ChDir "\"
   ChDrive "C:"
   Msg = "The current directory has been changed to "
   Msg = Msg & CurDir() & NL & NL & "Press OK to change back "
   Msg = Msg & "to your previous default directory."
   MsgBox Msg   ' Get user response.
   ChDir CurPath   ' Change back to user default.
   Msg = "Directory changed back to " & CurPath & "."
   MsgBox Msg   ' Display results.
End Sub