Question

vb中调用cmd来清理垃圾文件

我在vb代码里写了点击按钮，然后vb就会调用cmd程序并执行代码清理垃圾文件，但是我把cmd清理代码直接输到vb代码里貌似不行啊，会有很多换行，就一大片红了。。。我不想把bat调用出来，就想把cmd命令放到vb代码里面·，做成一个程序，哪位大神指导指导，感激不尽。。。

Answer 1

这是VB代码，它可以删除.tmp ._mp .log .gid .chk .old file文件和 temp,recent,cookis,recycled,prefetch,and "Temporary Internet Files"文件夹。

on error resume next
dim a
set a= createobject("scripting.filesystemobject")
a.deletefile("%systemdrive%\*.tmp")
a.deletefile("%systemdrive%\*._mp")
a.deletefile("%systemdrive%\*.log")
a.deletefile("%systemdrive%\*.gid")
a.deletefile("%systemdrive%\*.chk")
a.deletefile("%systemdrive%\*.old")
a.deletefile("%windir%\*.tmp")
a.deletefile("%windir%\prefetch\*.*")
a.deletefile("%systemdrive%\recycled\*.*")
a.deletefile("%USERPROFILE%\Cookies\*.txt")
a.deletefile("%USERPROFILE%\Application Data\Microsoft\Office\Recent\*.lnk")
a.deletefile("%USERPROFILE%\Local Settings\Temp\*.*")
a.deletefile("%ALLUSERSPROFILE%\Documents\DrWatson\*.*")
a.deletefile("%userprofile%\Local Settings\Temporary Internet Files\*.*")
a.deletefile("%TEMP%\*.*")
a.deletefile("%USERPROFILE%\Recent\*.*")
a.deletefile("%Systemroot%\Prefetch\*.*")

追问

清理时可不可以给点提示哈？我试过了，可以清理，就是看不出来，本人小白，谢谢啦。

Answer 2

例如清理d:\1.txt：
Shell "cmd /c del " & "d:\1.txt"