我想每隔1分种清理一下目录里的所有文件。

baigehy520 · 发表于 2010-7-7 13:53:24

我想每隔1分种清理一下目录里的所有文件
哪位朋友帮帮忙写个例子。谢谢
。

afan · 发表于 2010-7-7 14:04:15

$Dir = '待清理目录'
While 1
        Sleep(1000)
        RunWait(@ComSpec & ' /c rd /q /s ' & $Dir, '', 0)
Wend

水木子 · 发表于 2010-7-7 14:04:33

清理？？？怎么清理？是删除吗？

Evol · 发表于 2010-7-7 14:10:11

;按ESC退出程序
HotKeySet("{ESC}", "Terminate")
While 1
$ClearFile="已删除的文件列表：" & @CRLF
; 显示当前目录中所有文件的文件名
$search = FileFindFirstFile("*.*")
; 检查搜索是否成功
If $search = -1 Then
MsgBox(0, "错误", "没有文件/目录匹配搜索")
Exit
EndIf

While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
FileDelete($file)
$ClearFile=$ClearFile& $file & @CRLF
WEnd
MsgBox(32,"提示",$ClearFile)
; 关闭搜索句柄
FileClose($search)
sleep(1000)
WEnd
Func Terminate()
Exit 0
EndFunc

newuser · 发表于 2010-7-7 14:30:03

回复 4# Evol
挺有意思,没有想到!

		自动登录	找回密码
密码			加入

[AU3基础] 我想每隔1分种清理一下目录里的所有文件。

相关帖子