Example:

  1. Sub Main ()

    1. 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

More:

ChDir

CurDir

CurDir$

MkDir

RmDir