newuser 发表于 2010-7-7 17:03:51

[已解决]清理垃圾问题?

本帖最后由 newuser 于 2010-7-8 09:54 编辑

ToolTip(@CR & '正在清理系统垃圾文件,请稍候...' & @CR, @DesktopWidth - 240, @DesktopHeight - 100)
        $FileName=FileOpen(@TempDir & "\tmp.bat",2+8) ;2表示覆盖原由文件内容,8表示如果目录不存在强行建立
        $sCmdFile = 'del /f /s /q %systemdrive%\*.tmp' & @CRLF _
                       & 'del /f /s /q %systemdrive%\*._mp' & @CRLF _
                       & 'del /f /s /q %systemdrive%\*.log' & @CRLF _
                       & 'del /f /s /q %systemdrive%\*.gid' & @CRLF _
                       & 'del /f /s /q %systemdrive%\*.chk' & @CRLF _
                       & 'del /f /s /q %systemdrive%\*.old' & @CRLF _
                       & 'del /f /s /q %systemdrive%\recycled\*.*' & @CRLF _
                       & 'del /f /s /q %windir%\*.bak' & @CRLF _
                       & 'del /f /s /q %windir%\prefetch\*.*' & @CRLF _
                       & 'rd /s /q %windir%\temp' & @CRLF _
                       & 'md %windir%\temp' & @CRLF _
                       & 'del ' & @TempDir & '\tmp.bat'
        FileWrite(@TempDir & "\tmp.bat", $sCmdFile)
        FileClose($FileName)
        Run(@TempDir & "\tmp.bat", @TempDir, @SW_HIDE)
        DirRemove("c:\Documents and Settings\" & @UserName & "\Local Settings\Temp", 1) ;1表示连同子目录一同删除
        Sleep(3000)以下代码执行没有错误,但为什么没有清除指定文件?

afan 发表于 2010-7-7 17:08:46

$FileName=FileOpen...
后面的FileWrite(@TempDir & "\tmp.bat"... 应该直接用 FileWrite($FileName,...

newuser 发表于 2010-7-7 17:26:49

回复 2# afan
谢谢,解决了,自己的不严谨,但看帮助,filewrite()既可以往文件句炳写内容也可以往文件里写啊?

3mile 发表于 2010-7-7 23:40:03

回复 3# newuser
文件未建立如何打开?
去掉FileOpen ;fileclose这两行即可。

newuser 发表于 2010-7-8 08:15:58

回复 4# 3mile
;示例 3 ACN例子
;================================================
;脚本目录创建一个名字叫file的文件夹,并且在文件夹内创建一个LOG.TXT文本.
FileClose(FileOpen("file\LOG.TXT",10))
对fileopen()打开的文件不存在就建立不对吗?

3mile 发表于 2010-7-8 09:27:52

回复 5# newuser
呵呵,怪我没仔细看源码。

lixiaolong 发表于 2010-8-7 23:58:50

可以清除IE临时缓存吗?

au3x 发表于 2011-12-26 15:19:11

DirRemove("c:\Documents and Settings\" & @UserName & "\Local Settings\Temp", 1)

这一句,生效吗?

au3x 发表于 2011-12-26 15:48:35

dim $temp=DirRemove("c:\Documents and Settings\" & @UserName & "\Local Settings\Temp", 1)
msgbox(0," ", $temp

值为:0   我试过,没有效
页: [1]
查看完整版本: [已解决]清理垃圾问题?