批量整理磁盘碎片

秋风舞落叶

使用XP自带的磁盘碎片管理程序整理磁盘碎片时，不能自动整理所有磁盘，只能我们手动整理完一个再整理另一个，这对于我们这些懒人来说，确实不可忍受，所以只能出些懒招了。
; Y  X) l& D$ _$ @* f+ ~4 ?方法一：
6 @" p: }: J! P4 q0 j* }使用批处理，将以下代码保存为文件 AutoDefrag.bat
for %%d in (c: d: e do defrag %%d /f
需要整理碎片的时候，只要双击该文件即可。其中，c: d: e: 为要整理的分区盘符，可根据自己的实际情况自行添加或更改。
方法二：
使用 solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid" cellPadding=0 width="80%" border=1> '批量整理磁盘碎片脚本
set WshShell = CreateObject("WScript.Shell")
'启动图形界面的整理程序
) u/ T4 V* v: g9 {! ?9 g& Q% }WshShell.Run "dfrg.msc"
WScript.Sleep 1000
'等待1秒钟，用于程序启动
While WshShell.AppActivate("磁盘碎片整理程序") = FALSE
wscript.sleep 1000
Wend
'将磁盘碎片整理程序选为当前窗口
WshShell.AppActivate "磁盘碎片整理程序"
WScript.Sleep 200
'按下“ALT+A”打开下拉菜单
( W) n) z- [- B% L- M( z/ L: Y& e: FWshShell.SendKeys "%A"
WScript.Sleep 200
; J% K. f* b( m0 F7 A6 M'按下“D”键
$ R9 ?9 G! n9 M" o1 w0 i* FWshShell.SendKeys "D"
'整理完毕后等待5秒钟
While WshShell.AppActivate("磁盘碎片整理完毕") = FALSE
7 A) D( l+ e0 S5 e; W0 f$ A: ^& M" ?& swscript.sleep 5000
Wend
'激活该窗口
2 u/ R. }3 c0 k; {) d$ r& }2 OWshShell.AppActivate "磁盘碎片整理完毕"
WScript.Sleep 200
WshShell.Sendkeys "{TAB}"
Wscript.Sleep 500
WshShell.Sendkeys "{ENTER}"
# ~" x$ V1 A( M6 q& z0 |& lWscript.Sleep 500
'按下“ALT+F4”关闭整理程序
; D8 W# o2 d2 {/ b8 q6 }WshShell.Sendkeys "%{F4}"
使用方法：双击