例如清除temp目录下昨天以前生成的文件:
'先取得temp文件夹中的文件列表
Dim fileEntries() As String = System.IO.Directory.GetFiles(MapPath("temp"))
Dim sFile As String
'遍历文件列表
For Each sFile In fileEntries
'将文件的生成日期与系统日期相比,如果是昨天以前生成的文件,删除它
'注:文件的生成日期与文件属性中的修改时间不同
If DateTime.Compare(System.IO.File.GetCreationTime(sFile).AddDays(1), DateTime.Now) < 0 Then
System.IO.File.Delete(sFile)
End If
Next