Delete file on expiration date

[QUINABA]

Hello All!!

Is there a way to automatically delete a file on a specified date? I create templates for our group on a monthly basis and I would like to have those template deleted following the next months update.

Thanks in advance!

 

[pcc]

check the help on 'Kill'

 

[QUINABA]

We're currently using Excel 97 here at work and I didn't see anything on "Kill" on the help.

Thanks though!

 

[pcc]

I'm on Excel 2000, but I'm fairly sure that Excel '97 supports the Kill statement. Below is the Help

Kill Statement


Deletes files from a disk.

Syntax

Kill pathname

The required pathname argument is a string expression that specifies one or more file names to be deleted. The pathname may include the directory or folder, and the drive.

Remarks

In Microsoft Windows, Kill supports the use of multiple-character (*) and single-character (?) wildcards to specify multiple files. However, on the Macintosh, these characters are treated as valid file name characters and can't be used as wildcards to specify multiple files.

Since the Macintosh doesn't support the wildcards, use the file type to identify groups of files to delete. You can use the MacID function to specify file type instead of repeating the command with separate file names. For example, the following statement deletes all TEXT files in the current folder.

Kill MacID("TEXT")

If you use the MacID function with Kill in Microsoft Windows, an error occurs.

An error occurs if you try to use Kill to delete an open file.

Note To delete directories, use the RmDir statement

 

[Tom Urtis]

Place this in a standard module. Modify for suicide date, and make **** sure you have a backup copy in case you code the date wrong or change your mind later.

Sub Autpen()
If Date < #10/31/2003# Then Exit Sub
With ThisWorkbook
.Saved = True
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
End Sub

 

[QUINABA]

Thanks alot fellas! This should help alot.