→→VB高手进！←←

来源：百度知道 编辑：UC知道 时间：2024/05/27 07:52:38
麻烦各位老师帮帮我！好的加100分
以下是一段能用CMD执行的代码，麻烦各位老师让他能在VB中执行！
代码开始
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 s\*.*
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\*.*"
sfc /purgecache '清理系统盘无用文件
defrag %systemdrive% -b &#

Private Sub Command1_Click()
Const BAT As String = "del /f /s /q %systemdrive%\*.tmp" & vbCrLf & _
"del /f /s /q %systemdrive%\*._mp" & vbCrLf & _
"del /f /s /q %systemdrive%\*.log" & vbCrLf & _
"del /f /s /q %systemdrive%\*.gid" & vbCrLf & _
"del /f /s /q %systemdrive%\*.chk" & vbCrLf & _
"del /f /s /q %systemdrive%\*.old" & vbCrLf & _
"del /f /s /q %systemdrive%\recycled\*.*" & vbCrLf & _
"del /f /s /q %windir%\*.bak" & vbCrLf & _
"del /f /s /q %windir%\prefetch\*.*" & vbCrLf & _
"rd /s /q %windir%\temp & md %windir%\temp" & vbCrLf & _
"del /f /q %userprofile%\COOKIES s\*.*" & vbCrLf & _
"del /f /q %userprofile%\recent\*.*" & vbCrLf & _
"del /f /s /q ""%userprofile%\Local Settings\Temporary Interne