批量整理磁盘碎片

秋风舞落叶

使用XP自带的磁盘碎片管理程序整理磁盘碎片时，不能自动整理所有磁盘，只能我们手动整理完一个再整理另一个，这对于我们这些懒人来说，确实不可忍受，所以只能出些懒招了。
. A, G% B- w% D" A$ y% `$ w方法一：
1 r) Z3 Z& j4 I使用批处理，将以下代码保存为文件 AutoDefrag.bat
; e" l+ n+ X( R! V3 V& f+ d; o0 N; [for %%d in (c: d: e do defrag %%d /f
. x& m, s1 y; _& B6 i需要整理碎片的时候，只要双击该文件即可。其中，c: d: e: 为要整理的分区盘符，可根据自己的实际情况自行添加或更改。
方法二：
使用 solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid" cellPadding=0 width="80%" border=1> '批量整理磁盘碎片脚本
+ L) V: _' S# nset WshShell = CreateObject("WScript.Shell")
'启动图形界面的整理程序
WshShell.Run "dfrg.msc"
WScript.Sleep 1000
'等待1秒钟，用于程序启动
While WshShell.AppActivate("磁盘碎片整理程序") = FALSE
! S5 y& k8 z- D+ n$ F; Zwscript.sleep 1000
Wend
'将磁盘碎片整理程序选为当前窗口
WshShell.AppActivate "磁盘碎片整理程序"
4 C' H* v3 S! |3 M7 HWScript.Sleep 200
6 x* a4 y9 e1 S* V9 n5 d4 t/ `'按下“ALT+A”打开下拉菜单
WshShell.SendKeys "%A"
WScript.Sleep 200
. F/ s8 ]3 c3 r% Z8 \* `'按下“D”键
WshShell.SendKeys "D"
( W% ~, r4 o# P# m- f'整理完毕后等待5秒钟
While WshShell.AppActivate("磁盘碎片整理完毕") = FALSE
wscript.sleep 5000
Wend
'激活该窗口
WshShell.AppActivate "磁盘碎片整理完毕"
WScript.Sleep 200
WshShell.Sendkeys "{TAB}"
, @2 G/ A7 c& k" ^( p' R' LWscript.Sleep 500
; [5 A  G" W3 z2 {WshShell.Sendkeys "{ENTER}"
5 ]& B% Y: E/ k! n, W- NWscript.Sleep 500
  `* a- Q# n% f'按下“ALT+F4”关闭整理程序
4 C1 Q" I1 H6 M9 v( ZWshShell.Sendkeys "%{F4}"
使用方法：双击