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
