Copy New file from A to B

[itgeek]

Hi I want to copy only new files created on the day to be copied to another location is this possible?

 

 

Thanks

 

This gets the latest file but not all the files that were created!

 

Dim fNewest

set oFolder=createobject("scripting.filesystemobject").getfolder("\\dylan\d$\Program Files\Microsoft SQL Server\MSSQL.1\MSSQL\Backup")

For Each aFile In oFolder.Files

If fNewest = "" Then

Set fNewest = aFile

Else

If fNewest.DateCreated < aFile.DateCreated Then

Set fNewest = aFile

End If

End If

Next

 

Msgbox fNewest.Name

[vikpaw]

my coding is poor, but what you are doing is looping through an array of files objects in the specified folder and each time one is newer it replaces the fNewest variable. (just had to say it out in pseudo-code).

 

if you want to capture all files from today you need to put in some kind of date function and check the creation / modified dates on the actual files.

 

also, your for...next loop needs to have a counter such that rather than a flat variable fNewest, you fill an array with a list of names.

 

next you need to handle the actual copying part.

 

it seems quite complicated, if it's just for a some personal use specifically for backups.

 

have you considered a batch file using xcopy, you can simply schedule :

 

xcopy /d:m-d-y source destination

 

something like that, obviously need to capture the date too using %date% and do some extraction of the d/m/y parts to feed into xcopy, but relatively trivial.

 

i had a script somewhere that did something similar and woud back up an access db to a separate location in a dated folder. will try and look it up if no-one else comes back sooner.

 

also, check the MIS forum for a handly little backup tool that may be of use to you as well.

[Dom_]

Karen's replicator allows you to do this, but will copy updated files too...

 

Check the box saying 'only copy file if changed or added'

[powdarrmonkey]

ntbackup in copy mode.

[mac_shinobi]

Good old ROBOCOPY can do most things. This sort of task is right up its street.

 

 

 

/MAXAGE:n :: MAXimum file AGE - exclude files older than n days/date.

/MINAGE:n :: MINimum file AGE - exclude files newer than n days/date.

/MAXLAD:n :: MAXimum Last Access Date - exclude files unused since n.

/MINLAD:n :: MINimum Last Access Date - exclude files used since n.

(If n < 1900 then n = n days, else n = YYYYMMDD date).

 

 

You want to use the /MAXAGE:1 which will exclude files over a day old.

 

Think you can also get the GUI for robocopy so makes it a bit easier

 

Utility Spotlight: Robocopy GUI

[itgeek]

So The solutions will only copy new files to a dir. In the new dir they will not be all the files but only the new files and a cleanup will be run to delete old files.

 

 

Thanks again.

 

 

Sorry its hard to explain!!

[buzzard]

another vote for Robocopy, both with and without the GUI!

[itgeek]

So its something like this??

 

C:\Program Files\Windows Resource Kits\Tools>robocopy

kup Files> /MAXAGE:1

 

 

Sorry!!

 

Thanks again

[buzzard]

or use the GUI and tick the "save as script" tickbox they always work for me!

[itgeek]

Thanks so much its working great just one small problem its not copying folders only files in the root.

 

robocopy "I:\Backup Files" "I:\Backup FilesB" /MAXAGE:1

[itgeek]

got it /e

 

 

 

thanks again for all the help

[teejay]

If you want to maintain permissions and ownership of the files, add /COPYALL

You may also want to add /ZB which gives greater resilience in the copy process