• Home
 · 
• Files/File Controls/Input/Output
 · 
• Delete Files by File Date

Delete Files by File Date

Delete Files by File Date

Rate Delete Files by File Date

• 1
• 2
• 3
• 4
• 5

(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"