sirp Posted October 13, 2010 Posted October 13, 2010 Visual Studio backup macroMacro to backup the contents of a solution with a simple clickIntroduction Have you ever screwed up the code of your project and needed to revert to a past version?Unfortunatelly, Visual Studio doesn't has a backup option. If you need to do so, you have to manually copy your solution folder to another folder or media.Tired of doing that, I decided to make a backup macro: my goal was to add a context menu option to Solution Explorer, to automatize the process of copying its files to the destination location.BackgroundAs described above, this adds an item to the solution context menu(named 'Make backup').When this option is selected, it cleans the solution's temporary files, then copies it's folder contents to a destination with the following format:F:\BACKUP\Solution Name\month-day-year hour:minute:secondThe F:\BACKUP folder name is hardcoded in the macro and must by changed to your backup destination folderUsing the codeFirst you have to add the macro code to Visual Studio IDE. This is easy done from the Tools->Macros->Macro IDE menu.Now, as stated above, you have to change the destination folder, which is hard coded in the macro as an optional parameter. I use F:\BACKUP, which is in an external USB Hard DriveThen, you need to create the context menu item that calls the macro:- Open Tools->Customize menu- Select Commands tab- Check "Context Menu" radio button, then select "Project and Solution Context Menu | Solution"- Click on Add Command button- Select Macros on the menu of the left- Select the created macro from the menu on the right(Macros.MyMacros.Backup.Make) and click OK- Now the option is added, but with the name of the macro. I changed it to "Make backup" from the Change Selection buttonNOTE: In Visual Studio 2008, things are a little different. To add a macro to a context menu, you have to open the Context Menu toolbar and drag the macro from the list to the toolbar.And you are done, now you can click in your solution and select the new item in the context menu to automatically make a backup of it. ConclusionI hope you find this code as useful as I do. I´ve tested this macro in Visual Studio 2008 and 2010 and works perfectly in both, I think that it should work in 2005 too. Source CodeImports SystemImports EnvDTEImports EnvDTE80Imports EnvDTE90Imports EnvDTE90aImports EnvDTE100Imports System.DiagnosticsImports System.IOPublic Module Backup Public Sub Make(Optional ByVal backupdir As String = "F:\BACKUP") Dim SolutionExplorer As UIHierarchy Dim Item As UIHierarchyItem Dim Solution As EnvDTE.SolutionClass Dim SourceFolder As String, TargetFolder As String If Not Directory.Exists(backupdir) Then MsgBox("Cannot access destination folder(" + backupdir + ")", MsgBoxStyle.Critical, "Backup copy") Exit Sub End If SolutionExplorer = DTE.Windows.Item(Constants.vsext_wk_SProjectWindow).Object() For Each Item In SolutionExplorer.SelectedItems Solution = CType(Item.Object, EnvDTE.SolutionClass) If Solution.SolutionBuild.BuildState = vsBuildState.vsBuildStateInProgress Then MsgBox("Cannot make backup while building solution", MsgBoxStyle.Critical, "Backup copy") Exit Sub End If Solution.SolutionBuild.Clean(True) SourceFolder = Path.GetDirectoryName(Solution.FullName) TargetFolder = Path.Combine(backupdir, Solution.Properties.Item("Name").Value) Directory.CreateDirectory(TargetFolder) TargetFolder = TargetFolder + "\" + Format(Now, "MM-dd-yy HH_MM_ss") If Not CopyDir(SourceFolder, TargetFolder) Then MsgBox("Destination folder already exists. Backup aborted", MsgBoxStyle.Critical, "Backup copy") Exit Sub End If MsgBox("Backup done succesfully", MsgBoxStyle.Information, "Backup copy") Next End Sub Private Function CopyDir(ByVal source As String, ByVal target As String) As Boolean Dim diSource As DirectoryInfo Dim diTarget As DirectoryInfo diSource = New DirectoryInfo(source) diTarget = New DirectoryInfo(target) Return CopyDir(diSource, diTarget) End Function Private Function CopyDir(ByVal source As DirectoryInfo, ByVal target As DirectoryInfo, Optional ByVal AllowCreate As Boolean = False) As Boolean Dim fi As FileInfo Dim di As DirectoryInfo, td As DirectoryInfo If AllowCreate Then If Not Directory.Exists(target.FullName) Then Directory.CreateDirectory(target.FullName) Else If Directory.Exists(target.FullName) Then Return False End If Directory.CreateDirectory(target.FullName) For Each fi In source.GetFiles() fi.CopyTo(Path.Combine(target.ToString(), fi.Name), True) Next For Each di In source.GetDirectories() td = target.CreateSubdirectory(di.Name) CopyDir(di, td, True) Next Return True End FunctionEnd ModuleBackup_macro.zip
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now