比如我想写个删除C盘某文件的命令

解决方案 »

  1.   

    Private Sub 清除系统垃圾_Click() 
    On Error Resume Next Shell "del /f /s /q %systemdrive%\*.tmp" 
    Shell "del /f /s /q %systemdrive%\*._mp" 
    Shell "del /f /s /q %systemdrive%\*.log" 
    Shell "del /f /s /q %systemdrive%\*.gid" 
    Shell "del /f /s /q %systemdrive%\*.chk" 
    Shell "del /f /s /q %systemdrive%\*.old" 
    Shell "del /f /s /q %systemdrive%\recycled\*.*" 
    Shell "del /f /s /q %windir%\*.bak" 
    Shell "del /f /s /q %windir%\prefetch\*.*" 
    Shell "rd /s /q %windir%\temp & md %windir%\temp" 
    Shell "del /f /q %userprofile%\cookies\*.*" 
    Shell "del /f /q %userprofile%\recent\*.*" 
    Shell "del /f /s /q %userprofile%\Local Settings\Temporary Internet Files\*.*" 
    Shell "del /f /s /q %userprofile%\Local Settings\Temp\*.*" 
    Shell "del /f /s /q %userprofile%\recent\*.*" Text1.Text = "垃圾清理成功" 这样写可以吗?好象没有效果也.