请示高手这段批处理写如VB,怎么写啊 ?

来源:百度知道 编辑:UC知道 时间:2024/05/08 07:20:44
@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 清理系统垃圾完成!
echo. & pause

就是一个清理系统的批处理,想写进VB,怎么写啊?
感谢o @@@@

Private Sub Command1_Click()
Dim strCommand As String

strCommand = "@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%\