Do you REALLY want it to run in two separate steps? (Copy all old files, then remove all old files) Or can it copy/check/remove in one loop? Option Explicit Sub Archive_Files() Dim fso, fldr, flc, f, fName, Fil, fDate Dim OldDate Dim Folder_From, Folder_To Dim msg, msg2 '----------------------------------------------------------------------------- Folder_From = "N:\from\" 'Note: trailing "\" is significant! Folder_To = "N:\to\" '----------------------------------------------------------------------------- Set fso = CreateObject("Scripting.FileSystemObject") OldDate = DateAdd("m", -1, Now()) 'Determines date 1 month ago msg = "Old Files: " msg2 = "Recent Files:" '----------------------------------------------------------------------------- If fso.folderexists(Folder_From) Then '------------------------------------------------------ Set fldr = fso.getfolder(Folder_From) Set flc = fldr.Files For Each f In flc fName = Folder_From & "\" & f.Name Set Fil = fso.getfile(fName) fDate = Fil.datelastmodified If (DateDiff("d", OldDate, fDate) <= 0) Then msg = msg & Chr(13) & Format(DateDiff("d", OldDate, fDate), "0000") & " " & Format(fDate, "mm-dd-yyyy") & " " & f.Name fso.copyfile fName, Folder_To If (fso.fileexists(Folder_To & f.Name)) Then fso.deletefile (fName) End If Else msg2 = msg2 & Chr(13) & Format(DateDiff("d", OldDate, fDate), "0000") & " " & Format(fDate, "mm-dd-yyyy") & " " & f.Name End If Next MsgBox msg & Chr(13) & Chr(13) & msg2 End If End Sub
If you don't like the Message box "reporting" results, simply comment it out. If you insist on copying the files, then going back to delete them, let me know and I'll break it into two functions. Paul ----------------------------------------- “Do all the good you can, By all the means you can, In all the ways you can, In all the places you can, At all the times you can, To all the people you can, As long as ever you can.” - John Wesley ----------------------------------------- ________________________________ From: Dave <davidstev...@gmail.com> To: MS EXCEL AND VBA MACROS <excel-macros@googlegroups.com> Sent: Tue, November 1, 2011 9:03:43 AM Subject: Re: $$Excel-Macros$$ Copy Files & then go back amd delete them Thanks Ashish, But the program is not working , when I pick the source directory I get an error saying "Permission Denied" and when you click on the debugger the following line is highlighted in the code. fso.Copyfile fil.Path, Sheets(1).Range("b1").Value What I want from the program is as follows. My source directory is always going to be P:\from & my target is going to be P:\to. I want the program to select all files that are 1 month old from P:\A and copy them into P:\B. Then I want the program to verify if the files are copied and then once the verification is complete than go back to P:\from and delete the 1 month old files. I dont want the user to be able to select the source and destination directories etc. Just when they click on a button the program does the above and gives a message when the operation is complete. thanks for your time and effort. On Nov 1, 2:56 am, ashish koul <koul.ash...@gmail.com> wrote: > Hi Dave, > > try the attachment > > > > > > On Tue, Nov 1, 2011 at 1:00 AM, Dave <davidstev...@gmail.com> wrote: > > Hi, > > > I need help with the following task. Thanks in advance > > I am using MS Excel 2010. > > > I have two folders: A & B. I want to do the folllowing tasks > > > 1, Every month I want to copy all files that are 1 month old (these > > are all .PDF files) from folder A to folder B. > > 2, Then I want to verify if the files are copied correctly . > > 3, Then once the copied files are verifiied I want to delete all the > > original files from A. > > > It has to be a copy and not a move operation as my network privelages > > get screwed up when I move the files. > > > Thanks , > > > Dave > > > -- > > FORUM RULES (925+ members already BANNED for violation) > > > 1) Use concise, accurate thread titles. Poor thread titles, like Please > > Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice > > will not get quick attention or may not be answered. > > > 2) Don't post a question in the thread of another member. > > > 3) Don't post questions regarding breaking or bypassing any security > > measure. > > > 4) Acknowledge the responses you receive, good or bad. > > > 5) Cross-promotion of, or links to, forums competitive to this forum in > > signatures are prohibited. > > > NOTE : Don't ever post personal or confidential data in a workbook. Forum > > owners and members are not responsible for any loss. > > > >------------------------------------------------------------------------------------------------------ > > > To post to this group, send email to excel-macros@googlegroups.com > > -- > *Regards* > * * > *Ashish Koul* > *http://www.excelvbamacros.com/* > > P Before printing, think about the environment. > > copy files from folder.xls > 50KViewDownload- Hide quoted text - > > - Show quoted text - -- FORUM RULES (925+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. ------------------------------------------------------------------------------------------------------ To post to this group, send email to excel-macros@googlegroups.com -- FORUM RULES (925+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. ------------------------------------------------------------------------------------------------------ To post to this group, send email to excel-macros@googlegroups.com