Application VisualBasic Script

Sub pathDemo1()
    Options.DefaultFilePath(wdAutoRecoverPath) = "c:\"
End Sub