Backing up work folder
Hi all,
Just wondering how I can back up a complete directory folder containing all the .xls files I have. I have setup a macro that save certain file and back them up but I would like to have the complete file copied and saved into H:\backup\with today's date as the folder name. Is there anyway to do this? Thanks Greg |
Backing up work folder
Try:
Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long Sub xx() targetfolder = "c:\ajay\back\" MakeSureDirectoryPathExists targetfolder Set fso = CreateObject("Scripting.FileSystemObject") For Each file In fso.getfolder("c:\ajay").Files Select Case fso.getfile(file.Path).Type Case "Microsoft Excel Worksheet" fso.getfile(file.Path).Copy targetfolder End Select Next set fso = nothing End Sub "Greg B..." wrote: Hi all, Just wondering how I can back up a complete directory folder containing all the .xls files I have. I have setup a macro that save certain file and back them up but I would like to have the complete file copied and saved into H:\backup\with today's date as the folder name. Is there anyway to do this? Thanks Greg |
All times are GMT +1. The time now is 06:40 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com