Example - ChDir Statement

Sub Main ()
    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