Question

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

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

Answer 1

在窗体上添加一个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