Receive instant 1:1 support from technology experts, using our real-time conversation and whiteboard interface. Your first 5 minutes are always free.
<snip> If Weekday(Date) = vbMonday Then CompareDate = DateAdd("d", -3, Date) Else CompareDate = DateAdd("d", -1, Date) End If For Each f In fldr.Files If f.DateLastModified >= CompareDate Then FileCopy f, "c:\Test\" & f.Name End If Next f <snip>
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
16 Experts available now in Live!