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

"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