中科新闻网李施德林漱口水好用吗:如何打造一个批量整理磁盘的程序?
来源：百度文库 编辑：中科新闻网 时间：2024/05/05 00:56:49
打开记事本 输入
for %%d in (c: d: e: f: g:) do defrag %%d /f
保存后改名为 XXX.BAT 就可以了
图形方式为
打开“记事本”，输入以下内容（以“'”开头的内容为注释内容，不必输入）：
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}"
第二步：关闭“记事本”，把文件保存为autodefrag.vbs，需要整理硬盘时只要双击一下这个文件即可