Delete Files by File Date

by KA Bucci (2 Submissions)
Category: Files/File Controls/Input/Output
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 3^rd March 2000
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Rate Delete Files by File Date



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

Download this snippet Add to My Saved Code

Delete Files by File Date Comments

No comments have been posted about Delete Files by File Date. Why not be the first to post a comment about Delete Files by File Date.

Delete Files by File Date

Delete Files by File Date Comments

Post your comment

Difficulty