【原创】批量删除文件修改时间为n天前的文件 - 第 2 页

cnlab · #16 2005-05-11, 00:07:23

ok,谢谢
空目录是新的时间，又要等25天才会被删除，所以要另外删

虫虫 · #17 2005-05-11, 03:59:10

引用:

作者: jiuk2k

刚看了一下，TC好像也可以

search->plugin tab->search in plugins

tc--creationdata--<=04/23/2005
tc--writedata-->04/23/2005
tc--writedata--<=04/24/2005

TC的方法哪里有那么复杂？直接搜索，在高级选项卡里面勾上 “不早于” 然后填上天数就可以了，除了天数还可以设置N个月 N年 N小时、分、星期···

还有更简便的办法，如果需要选择的文件的时间比较固定，像我下面这样，预先定义一个文件的类型，到时候按Num+进行选择就可以了。

pistachios · #18 2005-05-11, 10:38:17

Windows里面的搜索不就是可以直接这样做的吗，找完了之后还可以排序筛选进行操作

cnlab · #19 2005-05-12, 22:34:34

楼上两位没太明白
楼主编的这个批处理可以放在at里定时运行，自动删除，否则谁有时间想起天天去searh和删除呢。

飞虫虫 · #20 2005-05-26, 14:49:09

正在找这个，楼主这个东西真是及时雨啊。。。

飞虫虫 · #21 2005-05-26, 15:06:58

执行的时候报错如下：

代码:

C:\TEMP>for /F "delims=" %i in ('cscript.exe //nologo t_day.vbs') do set t_day=%
i
C:\TEMP\t_day.vbs(7, 32) Microsoft VBScript 编译器错误: 语法错误


C:\TEMP>setlocal ENABLEDELAYEDEXPANSION
命令语法不正确。

C:\TEMP>for /r %i in (*.*) do set c_day=%~ti && if "!c_day:~0,2!!c_day:~3,2!!c_d
ay:~6,2!" lss "~2,6i"

i_amok_cn · #22 2005-05-26, 16:24:00

[抄袭+改进]删除指定目录下的过期文件,(多目录可定义版本)

代码:

Dim d,fso,files,file   '声明变量名（不做也可以） 
Set d = CreateObject("Scripting.Dictionary")
d.Add "0", "E:\bbs_bak\91u_buss_sql"   '把目录路径添加到d这个数组中,0,1是数组的索引（index）
d.Add "1", "E:\bbs_bak\91_adsys" 

For Each i in d
      	Set FSO = CreateObject("Scripting.FileSystemObject")
		Set Folder = FSO.GetFolder(d.Item(i))
		Set Files = Folder.Files

		If Files.Count <> 0 Then
			For Each File In Files
				If File.DateLastModified < Now - 30 Then   '判断是否超过30天
				FSO.DeleteFile(file)
				'Wscript.Echo file
				End If
			Next
		End If
Next

hitme · #23 2005-05-26, 16:44:16

引用:

作者: 飞虫虫

执行的时候报错如下：

代码:

C:\TEMP>for /F "delims=" %i in ('cscript.exe //nologo t_day.vbs') do set t_day=%
i
C:\TEMP\t_day.vbs(7, 32) Microsoft VBScript 编译器错误: 语法错误


C:\TEMP>setlocal ENABLEDELAYEDEXPANSION
命令语法不正确。

C:\TEMP>for /r %i in (*.*) do set c_day=%~ti && if "!c_day:~0,2!!c_day:~3,2!!c_d
ay:~6,2!" lss "~2,6i"

你是这么用的么?cmd下:
del_day 7