我现在想做一个自动删除某个目录，不知道怎样用vb来做，高手请赐教

Question

我每20分钟生成一次报文，报文要放到某个目录去保存，但最长只能保存一周，我怎样做到自动删除呢？

Answer 1

生成报文之前看看是否已保存了一周，是就KILL ALL

Answer 2

建一个表，存放文件保存的路径、生成时间等等
每次生成报文时，读取此表到rs
'循环
    if DateDiff("d", CDATE(rs("DateField")), Now)=7 then
         Kill rs("FileInfoField")
    end if

Answer 3

可以,看看帮助里边的 filesystemobject 对象

Answer 4

Private Sub Command2_Click()
Dim file1 As File
Dim file2 As File
Dim file3 As File
Dim fs As FileSystemObject
Dim file11 As FILETIME
Dim file22 As FILETIME
Dim file33 As FILETIME
Dim rt As Long
Dim rt1 As LongSet fs = CreateObject("scripting.filesystemobject")
Set file1 = fs.GetFile("e:\11.txt")
Set file2 = fs.GetFile("e:\22.txt")
Set file3 = fs.GetFile("e:\33.txt")
file11.dwHighDateTime = file1.DateCreated
file22.dwHighDateTime = file2.DateCreated
file33.dwHighDateTime = file3.DateCreated
file11.dwLowDateTime = file1.DateLastModified
rt = CompareFileTime(file11, file22)
rt1 = CompareFileTime(file33, file22)
End Sub