论坛风格切换
正版合作和侵权请联系 sd173@foxmail.com
 
  • 帖子
  • 日志
  • 用户
  • 版块
  • 群组
帖子
购买邀请后未收到邀请联系sdbeta@qq.com
  • 1563阅读
  • 1回复

[求助-系统问题]不一般 批量整理磁盘碎片 [复制链接]

上一主题 下一主题
离线ahyanglf
 
发帖
*
今日发帖
最后登录
1970-01-01
只看楼主 倒序阅读 使用道具 楼主  发表于: 2009-11-12 08:21:17
使用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}"

  使用方法:双击
1条评分
惊鸿一剑 电魂 +3 继续努力,期待您的下篇杰作 2009-11-12
离线quen2008
发帖
*
今日发帖
最后登录
1970-01-01
只看该作者 沙发  发表于: 2009-11-12 09:33:50
用这个命令偷偷懒还是不错的