论坛 › 『 提问交流 』 › 我想每隔1分种清理一下目录里的所有文件。

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

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

我想每隔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
挺有意思,没有想到!

查看完整版本: 我想每隔1分种清理一下目录里的所有文件。