| < Free Open Study > |
|
Before you make massive changes to a source file, you might want to make a backup copy of the file. If you later decide that you want to restore the copy of the source code before you made the changes, you will have a copy to restore. Obviously, you could do this manually through the Windows Explorer, but you can do it very easily within the IDE with the following procedure:
Sub BackupCurrentWindow() " This method will make a backup copy of " the active window. It will be saved as " fullname.bak. For example, a .vb file " will be saved as name.vb.bak. The file " will be saved and closed. It will not " be added to the project. Dim Sel As TextSelection = oVB.ActiveDocument.Selection Dim sFileName As String = oVB.ActiveDocument.FullName & _ ".bak" Dim epAnchor As EditPoint = Sel.AnchorPoint.CreateEditPoint Dim epActive As EditPoint = Sel.ActivePoint.CreateEditPoint Dim txtWin As TextWindow = oVB.ActiveWindow.Object Dim actPane As TextPane = txtWin.ActivePane Dim Corner As EditPoint = actPane.StartPoint.CreateEditPoint Dim Text As String Sel.SelectAll() Text = Sel.Text ' Create, save, and close the backup copy of the ' current window oVB.ItemOperations.NewFile("General\Text File") oVB.ActiveDocument.Object("TextDocument"). Selection.Insert(Text) oVB.ActiveDocument.Save(sFileName) oVB.ActiveDocument.Close(EnvDTE.vsSaveChanges. vsSaveChangesNo) ' Restore the selection. Sel.MoveToPoint(epAnchor) Sel.MoveToPoint(epActive, True) actPane.TryToShow(Corner, vsPaneShowHow.vsPaneShowTop) End Sub
| < Free Open Study > |
|