Macro to do backup..

[help_questions]

I want to write a macro that will copy the contents of my C:\Test folder and create a folder in C:\Reports (in the mmmm d, yyyy format) and then paste the copied contents of C:\Test into the new folder....

Can this be done with a Macro? if so how??

 

[Datsmart]

Write a batch file that builds the folder you want and copies the files you want to it. Then use the Shell command in your macro to run the batch file.

Shell "C:\WINDOWS\system32\cmd.exe" & " C:\Mybatch.BAT"

 

[help_questions]

i dont know how to do this in batch. I can mkdir the folder, and copy to the folder...but i dont know how to write a batch file that will make a folder titled with the current date and then copy to this dated folder.....can you help with this?

 

[Datsmart]

Sorry, Have to run now. Will check this post tomorrow. Maybe someone can answer before then.

 

[Datsmart]

This code worked for me. Didn't need to use a Batch file after all.
Could not use your desired Date format as it contains characters not allowed in folder names.

Sub Copy2NewFolder()
Dim FSO As Object, f As Object, Path As String
Dim myDir As String
    myDir = "C:\Test"
    NewFolder = "C:\Reports\"
    NewFolder2 = "C:\Reports\" & Format(Now(), "mm-dd-yy") & "\"
    ChDir myDir
    Path = myDir
    
Set FSO = CreateObject("Scripting.FileSystemObject")

'if folder does not exist then create it
    If Dir(NewFolder, vbDirectory) = "" Then
        MkDir NewFolder
    End If
'Create subFolder    
    If Dir(NewFolder2, vbDirectory) = "" Then
        MkDir NewFolder2
    End If

'Copy files
    For Each f In FSO.GetFolder(Path).Files
        FileCopy f, NewFolder2 & f.Name
    Next

End Sub

You will have to setup a reference to Microsoft Objects in VBA to use the FSO code.
Hope this is what you are after.

 

[help_questions]

This works great...........thanks for your help!!

 

[Datsmart]

Glad it worked for you.
Thanks for the follow up, always wonder if my advice is worth while.