批量整理磁盘碎片

秋风舞落叶

使用XP自带的磁盘碎片管理程序整理磁盘碎片时，不能自动整理所有磁盘，只能我们手动整理完一个再整理另一个，这对于我们这些懒人来说，确实不可忍受，所以只能出些懒招了。
3 ?3 l1 ]+ ]) k4 F' _/ ?方法一：
使用批处理，将以下代码保存为文件 AutoDefrag.bat
for %%d in (c: d: e do defrag %%d /f
& L' Z0 V/ V5 R* A# R需要整理碎片的时候，只要双击该文件即可。其中，c: d: e: 为要整理的分区盘符，可根据自己的实际情况自行添加或更改。
方法二：
使用 solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid" cellPadding=0 width="80%" border=1> '批量整理磁盘碎片脚本
! P4 a* b* u. o3 q: C' Aset WshShell = CreateObject("WScript.Shell")
'启动图形界面的整理程序
+ k# J6 I+ y, p  V. ]7 s6 V  yWshShell.Run "dfrg.msc"
/ f" I, E' }+ `! HWScript.Sleep 1000
'等待1秒钟，用于程序启动
While WshShell.AppActivate("磁盘碎片整理程序") = FALSE
wscript.sleep 1000
Wend
'将磁盘碎片整理程序选为当前窗口
% a# a  @# K0 K9 fWshShell.AppActivate "磁盘碎片整理程序"
2 h1 d7 H" ~) f; uWScript.Sleep 200
'按下“ALT+A”打开下拉菜单
0 p  V0 w2 i  z- ?" n: t3 XWshShell.SendKeys "%A"
WScript.Sleep 200
* {. _2 A- k* D) o  E' k6 |'按下“D”键
WshShell.SendKeys "D"
( i% y5 v+ U! W# q8 g1 e4 S! o'整理完毕后等待5秒钟
While WshShell.AppActivate("磁盘碎片整理完毕") = FALSE
wscript.sleep 5000
Wend
8 v  K8 J6 C/ ?'激活该窗口
  v# i1 b# ?  b, UWshShell.AppActivate "磁盘碎片整理完毕"
WScript.Sleep 200
WshShell.Sendkeys "{TAB}"
Wscript.Sleep 500
* c. M' V. q: B# j( \: O0 y) sWshShell.Sendkeys "{ENTER}"
. O, m/ r3 ]  ]% T, xWscript.Sleep 500
'按下“ALT+F4”关闭整理程序
: o1 T7 ~7 F2 m! ~/ |4 Q! yWshShell.Sendkeys "%{F4}"
使用方法：双击