Delete Files by File Date
Delete Files by File Date
Rate Delete Files by File Date
(2(2 Vote))
'PurgeResp = DTPicker.value
'Need to set values for DestDrive and DestPath
Dim MyFile, MyStamp, DestDrive, DestPath
MyFile = Dir(DestDrive + DestPath + "\*.txt")'Change Extension
Do
MyStamp = FileDateTime(DestDrive + DestPath + "\" + MyFile)
MyStamp = DateValue(Left$(MyStamp, 10))
If MyStamp < PurgeResp Then Kill(DestDrive + DestPath + "\" + MyFile)
MyFile = Dir
If MyFile = "" Then Exit Do
Loop
MsgBox "Selected files purged.", vbOKOnly, "Purge Files"
Delete Files by File Date Comments
No comments yet — be the first to post one!
Post a Comment