Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Backing up my folders
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 I:\backup\with today's date as the folder name. Is there anyway to do this? Thanks Greg |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Backing up my folders
Greg, you could try this.
Sub Archive(YourDir As String) Dim ArchiveDir As String Dim thisFile As String 'Create the archive Directory ArchiveDir = "I:\Backup\" & Format(Date, "dd-mm-yyyy") If Dir(ArchiveDir, vbDirectory) = "" Then MkDir ArchiveDir 'Copy the files thisFile = Dir(YourDir & "\*.xls") While thisFile < "" FileCopy YourDir & thisFile, ArchiveDir & "\" & thisFile thisFile = Dir Wend End Sub Good luck, Fred "Greg B" wrote in message ... 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 I:\backup\with today's date as the folder name. Is there anyway to do this? Thanks Greg |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Backing up my folders
Greg,
The ubiquitous FileSystemObject is one way '--------------------------------------------------------------------------- Sub CopyFolder() '--------------------------------------------------------------------------- Dim oFSO As Object Dim sFolder As String Set oFSO = CreateObject("Scripting.FileSystemObject") sFolder = "I:\Backup\" If Not oFSO.FolderExists(sFolder) Then MkDir sFolder End If If Not oFSO.FolderExists(sFolder & Format(Date, "yyyy-mm-dd")) Then MkDir sFolder & Format(Date, "yyyy-mm-dd") End If oFSO.CopyFolder "C:\myTest\*", sFolder & "\" Set oFSO = Nothing End Sub -- HTH RP (remove nothere from the email address if mailing direct) "Greg B" wrote in message ... 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 I:\backup\with today's date as the folder name. Is there anyway to do this? Thanks Greg |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
backing up | Excel Discussion (Misc queries) | |||
Backing up folder | Excel Discussion (Misc queries) | |||
Backing Up | Excel Discussion (Misc queries) | |||
Backing Up | Excel Worksheet Functions | |||
Backing up IE Favorites | Excel Programming |