Don’t get all excited. This isn’t going to be anything too clever but i thought i’d share it anyway<\/p>\n
One of our clients uses WSS (v2) in conjunction with InfoPath to do their timesheets.<\/p>\n
We were asked how you would go about recovering the timesheets from a backup.<\/p>\n
I explained that we’d probably have to restore the site to a temporary site then move the files we needed from the restored document library to where it belongs (if someone knows an easier way please let me know?!)<\/p>\n
The client wanted to know if there was an easier way of doing this so i came up with a vbscript that grabs all the xml files and copies them to a folder. As i said at the start, this solution isn’t clever so if your looking to use this to backup other document types (word documents for example) it’s not going to bring any of the metadata with it<\/p>\n
The\u00a0script connects to the document library via a UNC path\u00a0and just treats it like a file share<\/p>\n
For this to work you need to make sure the WebClient service is running (if you get an error message that says something like “workstation driver is not installed” just restart the computer and you’ll be fine)<\/p>\n
If your going to schedule this you should probably add some code that maps a network drive to the share instead of accessing the UNC directly (only way i can think of passing credentials?)<\/p>\n
So heres the script….<\/p>\n
Dim myFSODim DocLib\n\nDim TimeSheet\n\nDim BackupTo\n\nDim dayWeek\n\nDim FullDay\n\nDim LibraryPath\n\nDim BackupPath\n\n\u00a0'Setup Variables\n\n'Ensure BackupPath ends with a \\\n\nLibraryPath=\"\\\\companyweb\\TimeSheets\"\n\nBackupPath=\"E:\\Time Sheet Backups\\\"\n\ndayWeek = DatePart(\"w\", (Date))\n\nSelect Case dayWeek\n\nCase 1\n\n\u00a0\u00a0\u00a0 FullDay = \"Sunday\"\n\nCase 2\n\n\u00a0\u00a0\u00a0 FullDay = \"Monday\"\n\nCase 3\n\n\u00a0\u00a0\u00a0 FullDay = \"Tuesday\"\n\nCase 4\n\n\u00a0\u00a0\u00a0 FullDay = \"Wednesday\"\n\nCase 5\n\n\u00a0\u00a0\u00a0 FullDay = \"Thursday\"\n\nCase 6\n\n\u00a0\u00a0\u00a0 FullDay = \"Friday\"\n\nCase 7\n\n\u00a0\u00a0\u00a0 FullDay = \"Saturday\"\n\nEnd Select\n\nSet myFSO = CreateObject(\"Scripting.FileSystemObject\")\n\nSet DocLib = myFSO.GetFolder(LibraryPath)\n\nSet BackupTo = myFSO.GetFolder(BackupPath & FullDay)\n\nmyFSO.DeleteFile BackupTo.Path & \"\\*.*\"\n\nFor Each TimeSheet In DocLib.Files\n\nTimeSheet.Copy BackupTo.Path & \"\\\" & TimeSheet.Name\n\nNext<\/pre>\n","protected":false},"excerpt":{"rendered":"Don’t get all excited. This isn’t going to be anything too clever but i thought i’d share it anyway One of our clients uses WSS (v2) in conjunction with InfoPath to do their timesheets. We were asked how you would go about recovering the timesheets from a backup. I explained that we’d probably have to<\/p>\n