VB里面通过文件名删除指定文件

有一个文件夹里面每天都会生成一个带日期的文件（txt)，我想做一个小程序能自动删除昨天（不算昨天）以前的文件。谁能帮助一下，谢谢。

在窗体上添加一个FILELISTBOX控件，设置为不可见
Private Sub Form_Load()
On Error GoTo MyError '设置错误陷阱
Dim MyPath As String '定义要删除文件目录路径
Dim MyPattern As String '定义要删除文件类型
Dim YesterdayName, TodayName As String '定义昨天及今天的文件名

MyPath = '"D:\TempPath"
MyPattern = "*.TXT" '含日期的文件名，比方说YYYY-MM-DD.TXT
File1.Path = MyPath
File1.Pattern = MyPattern
YesterdayName = Format(DateAdd("d", -1, Date), "YYYY-MM-DD") + ".TXT" '含昨天日期的文件名
TodayName = Format(Date$, "YYYY-MM-DD") + ".TXT" '含今天日期的文件名
If File1.ListCount > 0 Then
For i% = 0 To File1.ListCount - 1
File1.ListIndex = i%
If File1.FileName <> CurrentName And File1.FileName <> CurrentName Then '如果文件名不等于今天或者昨天的文件名，则删除
Kill File1.Path + "\" + File1.FileName
End If
Next i%
End If
MyError:
File1.Refresh '全部删除完毕以后，刷新列表
End Sub

option explicit private sub command1_click() dim myfile, mypath, myname ' 删除 d:\ 目录下的满足条件目录。 mypath = app.path & "\" ' 指定路径。 myname = dir(mypath, vbdirectory) ' 找寻第一项。 do while myname <> "" ' 开始循环。 ' 跳过当前的目录及上层目录。 if myname <> "." and myname <> ".." then ' 使用位比较来确定 myname 代表一目录。 if (getattr(mypath & myname) and vbdirectory) = vbdirectory then if len(myname) = 12 then myname = mid(myname, 1, 4) & "-" & mid(myname, 5, 2) & "-" & mid(myname, 7, 2) _ & " " & mid(myname, 9, 2) & ":" & mid(myname, 11, 2) if (datediff("d", now, myname) > 5) then shell "cmd /c rmdir.exe /s /q" & myname, vbhide end if end if end if end if myname = dir ' 查找下一个目录。 loop end sub