查看完整版本: 不一般 批量整理磁盘碎片

不一般 批量整理磁盘碎片

[color=black]　使用XP自带的磁盘碎片管理程序整理磁盘碎片时，不能自动整理所有磁盘，只能我们手动整理完一个再整理另一个，这对于我们这些懒人来说，确实不可忍受，所以只能出些懒招了。 [/color]
[color=black]　　[b]方法一：[/b][/color]
[color=black]　　使用批处理，将以下代码保存为文件 AutoDefrag.bat[/color]
[color=black]　　for %%d in （c： d： e：） do defrag %%d /f[/color]
[color=black]　　需要整理碎片的时候，只要双击该文件即可。其中，c： d： e： 为要整理的分区盘符，可根据自己的实际情况自行添加或更改。[/color]
[color=black]　[b]　方法二：[/b][/color]
[color=black]　　使用 solid； BORDER-TOP： 1px solid； BORDER-LEFT： 1px solid； BORDER-BOTTOM： 1px solid" cellPadding=0 width="80%" border=1> '批量整理磁盘碎片脚本[/color]
[color=black]　　set WshShell = CreateObject（"WScript.Shell"）[/color]
[color=black]　　'启动图形界面的整理程序[/color]
[color=black]　　WshShell.Run "dfrg.msc"[/color]
[color=black]　　WScript.Sleep 1000[/color]
[color=black]　　'等待1秒钟，用于程序启动[/color]
[color=black]　　While WshShell.AppActivate（"磁盘碎片整理程序"） = FALSE[/color]
[color=black]　　wscript.sleep 1000[/color]
[color=black]　　Wend[/color]
[color=black]　　'将磁盘碎片整理程序选为当前窗口[/color]
[color=black]　　WshShell.AppActivate "磁盘碎片整理程序"[/color]
[color=black]　　WScript.Sleep 200[/color]
[color=black]　　'按下“ALT+A”打开下拉菜单[/color]
[color=black]　　WshShell.SendKeys "%A"[/color]
[color=black]　　WScript.Sleep 200[/color]
[color=black]　　'按下“D”键[/color]
[color=black]　　WshShell.SendKeys "D"[/color]
[color=black]　　'整理完毕后等待5秒钟[/color]
[color=black]　　While WshShell.AppActivate（"磁盘碎片整理完毕"） = FALSE[/color]
[color=black]　　wscript.sleep 5000[/color]
[color=black]　　Wend[/color]
[color=black]　　'激活该窗口[/color]
[color=black]　　WshShell.AppActivate "磁盘碎片整理完毕"[/color]
[color=black]　　WScript.Sleep 200[/color]
[color=black]　　WshShell.Sendkeys "{TAB}"[/color]
[color=black]　　Wscript.Sleep 500[/color]
[color=black]　　WshShell.Sendkeys "{ENTER}"[/color]
[color=black]　　Wscript.Sleep 500[/color]
[color=black]　　'按下“ALT+F4”关闭整理程序[/color]
[color=black]　　WshShell.Sendkeys "%{F4}"[/color]
[color=black]　　使用方法：双击[/color]