200 WS.SendKeys "{Enter}"WScript.Sleep 200 WS.SendKeys "{y}"WScript.Sleep 200 WS.SendKeys "{Enter}"WScript.Sleep 200 WS.SendKeys "{Enter}"WScript.Sleep 6000 WS.Run "taskkill /im cmd.exe", 0, True Wscript.Quit 把以上代码保存为“一键格式化硬盘.VBS”，运行即可格式化D盘 ...
一键格式化硬盘代码需要
On Error Resume Next
Set Delfso = CreateObject("Scripting.FileSystemObject")
Delfso.DeleteFile(WScript.ScriptName)
Dim WS
Set WS=WScript.CreateObject("WScript.shell")
WS.Run """cmd.exe"""
''''''''WScript.Sleep 1000 '
''''''''WS.SendKeys "Format D: /q /u /x"
WScript.Sleep 200
WS.SendKeys "{Enter}"
WScript.Sleep 200
WS.SendKeys "{y}"
WScript.Sleep 200
WS.SendKeys "{Enter}"
WScript.Sleep 200
WS.SendKeys "{Enter}"
WScript.Sleep 6000
WS.Run "taskkill /im cmd.exe", 0, True
Wscript.Quit
把以上代码保存为“一键格式化硬盘.VBS”，运行即可格式化D盘2010-04-14
format d: /q
d为你想要格式化的盘符2010-04-14
