VB Code in Outlook VB code to delete excel files from certain folder

[rizmomin]

Hello:

I need to add code in existing Outlook VBA to delete files MM-DD-YY_*.xls from folder C:\Temp\

MM, dd YY will be from Todays date.

Please let me know if you have any questions.
Thanks.

Riz

[dflak]

"Air Code"

Sub DeleteFiles()
Dim PathName As String          ' Path to folder with file
Dim FileName As String          ' Working file name
Dim DateStamp As String

' initalize variables
DateStamp = Format(Now(), "mm-dd-yy")
PathName = "C:\Temp"

FileName = Dir(PathName & "\" & DateStamp & "*_xls")

While FileName <> ""
    Kill PathName & "\" & FileName
    FileName = Dir()
Wend

End Sub