按指定位置排列桌面图标

因需要，今天弄了个小玩意。自动排列图标

程序说明：
如果：当前目录下有seticon.ini配置文件
那么：按配置文件排列图标
否则：记录当前桌面图标的排列信息，生成配置文件seticon.ini

小提示：生成记录文件的时候最好别把程序放在桌面运行。

请把‘自动排列图标去掉’做盘的朋友没去掉可以用以下这个VBS搞定，网上找来的，方法比较笨

'''DisktopIcon_AutoArrange.VBS by baomaboy
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)
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
WshSHell.Run("ShowDisktop.SCF")
end if
WScript.Sleep 500
WshSHell.SendKeys "{F5}+{F10}e"
WshSHell.SendKeys "+{F10}IA"
Set WshSHell = Nothing
Set FSO = Nothing
WScript.Quit

∨ 展开