[已解决]清理垃圾问题?
本帖最后由 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)以下代码执行没有错误,但为什么没有清除指定文件? $FileName=FileOpen...
后面的FileWrite(@TempDir & "\tmp.bat"... 应该直接用 FileWrite($FileName,... 回复 2# afan
谢谢,解决了,自己的不严谨,但看帮助,filewrite()既可以往文件句炳写内容也可以往文件里写啊? 回复 3# newuser
文件未建立如何打开?
去掉FileOpen ;fileclose这两行即可。 回复 4# 3mile
;示例 3 ACN例子
;================================================
;脚本目录创建一个名字叫file的文件夹,并且在文件夹内创建一个LOG.TXT文本.
FileClose(FileOpen("file\LOG.TXT",10))
对fileopen()打开的文件不存在就建立不对吗? 回复 5# newuser
呵呵,怪我没仔细看源码。 可以清除IE临时缓存吗? DirRemove("c:\Documents and Settings\" & @UserName & "\Local Settings\Temp", 1)
这一句,生效吗? dim $temp=DirRemove("c:\Documents and Settings\" & @UserName & "\Local Settings\Temp", 1)
msgbox(0," ", $temp
值为:0 我试过,没有效
页:
[1]