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

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

这是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\*.*")

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

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息