批量整理磁盘碎片

秋风舞落叶

使用XP自带的磁盘碎片管理程序整理磁盘碎片时，不能自动整理所有磁盘，只能我们手动整理完一个再整理另一个，这对于我们这些懒人来说，确实不可忍受，所以只能出些懒招了。
- F  d* C  O# I0 a( r0 @方法一：
使用批处理，将以下代码保存为文件 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")
& [  ?5 t( Q$ ^- f'启动图形界面的整理程序
6 t# f6 ~( l" }2 B: k2 rWshShell.Run "dfrg.msc"
WScript.Sleep 1000
; p8 `; R9 ^: ?9 [2 H'等待1秒钟，用于程序启动
& }! L: [$ Z3 aWhile WshShell.AppActivate("磁盘碎片整理程序") = FALSE
wscript.sleep 1000
Wend
0 E4 S: ]! s/ c'将磁盘碎片整理程序选为当前窗口
WshShell.AppActivate "磁盘碎片整理程序"
  Y$ o# B, u# _3 `* sWScript.Sleep 200
'按下“ALT+A”打开下拉菜单
WshShell.SendKeys "%A"
WScript.Sleep 200
'按下“D”键
( m9 r; S( h0 Z% z+ eWshShell.SendKeys "D"
, |0 v$ L" g3 h1 {7 b( Y1 V3 x'整理完毕后等待5秒钟
While WshShell.AppActivate("磁盘碎片整理完毕") = FALSE
wscript.sleep 5000
. u9 g3 Y/ _% A1 o% XWend
& h3 P/ u6 d/ o! a& X" y'激活该窗口
( Y" c; v4 j& C3 W! bWshShell.AppActivate "磁盘碎片整理完毕"
- N% q; t3 a0 A+ b9 [WScript.Sleep 200
WshShell.Sendkeys "{TAB}"
. E; l) j- {- E  C+ j+ s( JWscript.Sleep 500
WshShell.Sendkeys "{ENTER}"
Wscript.Sleep 500
'按下“ALT+F4”关闭整理程序
6 u, A" V& v) u8 PWshShell.Sendkeys "%{F4}"
4 V, e  E% B& r8 z" r( ~. i使用方法：双击