basic

Example:

1. Sub Main ()

   1. Dim Answer, Msg, NL ' Declare variables.

      NL = Chr(10) ' Define newline.

      CurPath = CurDir() ' Get current path.

      ChDir "\"

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

      Answer = MsgBox(Msg) ' Get user response.

      ChDir CurPath ' Change back to user default.

      Msg = "Directory changed back to " & CurPath & "."

      MsgBox Msg ' Display results.

   End Sub