批量整理磁盘碎片

秋风舞落叶

使用XP自带的磁盘碎片管理程序整理磁盘碎片时，不能自动整理所有磁盘，只能我们手动整理完一个再整理另一个，这对于我们这些懒人来说，确实不可忍受，所以只能出些懒招了。
方法一：
使用批处理，将以下代码保存为文件 AutoDefrag.bat
9 `3 x6 E7 n/ t! g3 b; Lfor %%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> '批量整理磁盘碎片脚本
7 e! \& u- U5 m% {' h  aset WshShell = CreateObject("WScript.Shell")
5 G. |- o0 B$ _0 B'启动图形界面的整理程序
. ]  v! \0 |5 R$ t( o! t+ C: |7 PWshShell.Run "dfrg.msc"
WScript.Sleep 1000
) ?2 h' K% j& }( ^; S'等待1秒钟，用于程序启动
While WshShell.AppActivate("磁盘碎片整理程序") = FALSE
wscript.sleep 1000
Wend
'将磁盘碎片整理程序选为当前窗口
WshShell.AppActivate "磁盘碎片整理程序"
  \/ X: R8 [, n9 nWScript.Sleep 200
'按下“ALT+A”打开下拉菜单
. O" Z: K% Q- z! }* p4 k; b8 W% n5 ^WshShell.SendKeys "%A"
# p# Z1 ]+ d" U! ^6 lWScript.Sleep 200
2 i% i9 l3 K' @5 `- |; @* Z'按下“D”键
WshShell.SendKeys "D"
! y" I. _7 B, Q5 H'整理完毕后等待5秒钟
1 ^& @. Q: }$ h# TWhile WshShell.AppActivate("磁盘碎片整理完毕") = FALSE
wscript.sleep 5000
Wend
3 t$ f  k3 s1 X! L* {$ N# s# J& J7 s9 A'激活该窗口
0 @' R/ _: y! X6 PWshShell.AppActivate "磁盘碎片整理完毕"
: N9 @. p) R) F# D3 W! I) N& `WScript.Sleep 200
WshShell.Sendkeys "{TAB}"
Wscript.Sleep 500
# t5 z& T# Q% W( D" f$ GWshShell.Sendkeys "{ENTER}"
: ^0 M2 F" i& S% a/ [Wscript.Sleep 500
'按下“ALT+F4”关闭整理程序
# f6 A, ]9 \8 T0 Q: j: o/ NWshShell.Sendkeys "%{F4}"
) r! n+ {. C1 k使用方法：双击