删除文件

Question

在c:\盘下的rec文件夹里存有一些录音文件，名字是年月日时分秒，比如20050429112021。
怎样判断这些文件距当前是否超过一个月，若超过了，就删除。
该怎么实现？
谢谢

Answer 1

思路：
先用fso判断文件最后修改日期
在用datediff函数判断是否过期，
过期就删除，反之不操作~

Answer 2

fso具体怎么用，能不能指点一下？

Answer 3

循环用dir函数遍历所有文件
对每一个文件
if DateDiff("m", CDate(left(文件名,8)), date)>=1 then
    kill 全路径 & 文件名 '删除
end if

Answer 4

错了，这个判断月份的差不行，应该用天数
if DateDiff("d", CDate(left(文件名,8)), date)>=30 then
    kill 全路径 & 文件名 '删除
end if

Answer 5

我的rec文件夹下会有好多文件，我怎么挨个取他们的文件名？

Answer 6

dim strFile as string
strFile = dir("c:\rec\*.后缀名")'第一个文件名
'判断strFiledo while Not strFile=""'循环遍历所有文件
   strFile = dir()
   '判断strFile
loop

Answer 7

Dim fso As New Scripting.FileSystemObject
'获得文件夹对象
    Set objFolder = fso.GetFolder(strFolderPath)
    '判断文件夹是否为空
    If Not objFolder Is Nothing Then        '获得文件夹下面的每个文件
       For Each objFile In objFolder.Files
         if DateDiff("d", CDate(left(objFile.path,8)), date)>=30 then
            kill 全路径 & 文件名 '删除
          end if
       Next objFile
    End If