怎么把这段批处理代码转换成VB?

这是一段清除系统的垃圾的批处理，怎么把他转成VB呢？
比如我只要按下command1他就执行这段代码。像批处理一样能清除系统垃圾，同时要显示清除的情况。

@echo off
echo 正在清除系统垃圾文件，请稍等......
del /f /s /q %systemdrive%\*.tmp
del /f /s /q %systemdrive%\*._mp
del /f /s /q %systemdrive%\*.log
del /f /s /q %systemdrive%\*.gid
del /f /s /q %systemdrive%\*.chk
del /f /s /q %systemdrive%\*.old
del /f /s /q %systemdrive%\recycled\*.*
del /f /s /q %windir%\*.bak
del /f /s /q %windir%\prefetch\*.*
rd /s /q %windir%\temp & md %windir%\temp
del /f /q %userprofile%\cookies\*.*
del /f /q %userprofile%\recent\*.*
del /f /s /q "%userprofile%\Local Settings\Temporary Internet Files\*.*"
del /f /s /q "%userprofile%\Local Settings\Temp\*.*"
del /f /s /q "%userprofile%\recent\*.*"
echo 清除系统LJ完成！
echo. & pause

用shell命令。shell("1.bat")

能不能用SHELL命令调用这个批处理？ 用VB的话。。难。

要转换本人可以代劳,e-mail:[email protected]

shell "cmd /c del /f /s /q %systemdrive%\*.tmp" shell "cmd /c del /f /s /q %systemdrive%\*._mp" ........ 这样行了吧