Script to backup files from subfolders based on date

[Councilk]

Hello all, I have a tasks where I need to backup a parent folder monthly and two subfolders daily based on the modified date.

I'm able to get the entire folder copied, but the backup folder needs to have the current month as part of the folder name.

This is what I have so far

============= Code below ===========================

Option Explicit

Const intDaysOld = 1
Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim objFolder : Set objFolder = objFSO.GetFolder("C:\PPress")
Dim objSubFolder
Dim dPath : dPath = "C:\PPressBak\PDF"

For Each objSubFolder In objFolder.SubFolders
WScript.echo objSubFolder.DateLastModified
If DateValue(objSubFolder.DateLastModified) < DateValue(Now() - intDaysOld) Then
WScript.Echo objSubFolder.DateLastModified
objSubFolder.Copy dPath
WScript.Echo("Copy completed")
End If
Next

 

[markdmac]

Create a folder with the date in the name:

Set objFSO = CreateObject("Scripting.FileSystemObject")
strDate = Right("0" & Month(Date),2) & Right("0" & Day(Date),2) & Year(Date)
objFSO.CreateFolder ("C:\PDF" & strDate)

I hope you find this post helpful.

Regards,

Mark

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript

Work SMARTER not HARDER. The Spider's Parlor's Admin Script Pack is a collection of Administrative scripts designed to make IT Administration easier! Save time, get more work done, get the Admin Script Pack.

 

[Councilk]

This worked out just fine for me, sorry for the late response but it's starting to pickup around here