自动排列桌面图标的VBS脚本

'==========================================================================
'
' 使桌面图标重排的脚本，设计的很奇妙，也学到了以前没有接触的东西
' SCF文件是“WINDOWS资源管理器命令”文件，它也是一种可执行文件.
' 由Windows Explorer Command解释，标准安装，包括下面3个该类型的文件
' 1） Explorer.scf(资源管理器)
' [Shell]
' Command=2
' IconFile=explorer.exe,1
' [Taskbar]
' Command=Explorer
' 2）Show Desktop.scf(显示桌面)
' 格式类似如下:
' [Shell]
' Command=2
' IconFile=explorer.exe,3
' [Taskbar]
' Command=ToggleDesktop
' 3）View Channels.scf（查看频道）
' [Shell]
' Command=3
' IconFile=shdocvw.dll,-118
' [IE]
' Command=Channels
'
'==========================================================================

Dim WshSHell,FSO
On Error Resume Next
Set WshSHell = WScript.CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set OF = FSO.OpenTextFile(FSO.BuildPath(FSO.GetSpecialFolder(1),"ShowDisktop.SCF"),2,True)
'此行代码有点复杂，其实包含了3 行代码
'第一行：a=FSO.GetSpecialFolder(1)    取得从c:\windows\system32文件夹地址
'第二行：b=(FSO.BuildPath(a,"ShowDisktop.SCF")在system32文件夹下建立ShowDisktop.scf文件
'    buildpath函数自动在路径和文件名间加\
'第三行：set of= FSO.OpenTextFile(c) 以写方式打开showdisk.scf文件
OF.Write("[Shell]"&vbcrlf&"Command=2"&vbcrlf&"IconFile=explorer.exe,3"&vbcrlf&"[Taskbar]"&vbcrlf&"command=ToggleDesktop")
'写入相关命令
OF.Close
if (WshShell.CurrentDirectory = WshShell.SpecialFolders("Desktop")) = "False" then
'判断脚本是否在桌面，是直接执行，否则运行scf显示桌面
WshSHell.Run("ShowDisktop.SCF")
end if
WScript.Sleep 500
WshSHell.SendKeys "{F5}+{F10}IA" 'F5刷新桌面，shift+F10呼叫出右键菜单，ia刷新
Set WshSHell = Nothing
Set FSO = Nothing
WScript.Quit