主题 : 不一般的批量整理磁盘碎片
【炫舞】开心竹有低头叶,傲骨梅无仰面花!
级别: 荣誉会员

UID: 13405
精华: 0
发帖: 29993
威望: 18208 点
无痕币: 1528 WHB
贡献值: 1 点
在线时间: 6268(时)
注册时间: 2008-02-15
最后登录: 2018-12-11

0 不一般的批量整理磁盘碎片

管理提醒: 本帖被 kjxg 执行锁定操作(2008-11-28)
使用XP自带的磁盘碎片管理程序整理磁盘碎片时,不能自动整理所有磁盘,只能我们手动整理完一个再整理另一个,这对于我们这些懒人来说,确实不可忍受,所以只能出些懒招了。   方法一:
  使用批处理,将以下代码保存为文件 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")
  ’启动图形界面的整理程序
  WshShell.Run "dfrg.msc"
  WScript.Sleep 1000
  ’等待1秒钟,用于程序启动
  While WshShell.AppActivate("磁盘碎片整理程序") = FALSE
  wscript.sleep 1000
  Wend
  ’将磁盘碎片整理程序选为当前窗口
  WshShell.AppActivate "磁盘碎片整理程序"
  WScript.Sleep 200
  ’按下“ALT+A”打开下拉菜单
  WshShell.SendKeys "%A"
  WScript.Sleep 200
  ’按下“D”键
  WshShell.SendKeys "D"
  ’整理完毕后等待5秒钟
  While WshShell.AppActivate("磁盘碎片整理完毕") = FALSE
  wscript.sleep 5000
  Wend
  ’激活该窗口
  WshShell.AppActivate "磁盘碎片整理完毕"
  WScript.Sleep 200
  WshShell.Sendkeys "{TAB}"
  Wscript.Sleep 500
  WshShell.Sendkeys "{ENTER}"
  Wscript.Sleep 500
  ’按下“ALT+F4”关闭整理程序
  WshShell.Sendkeys "%{F4}"
  使用方法:双击
Total 0.040958(s) query 3, Time now is:03-29 16:50, Gzip enabled 粤ICP备07514325号-1
Powered by PHPWind v7.3.2 Certificate Code © 2003-13 秋无痕论坛