按指定位置排列桌面圖標(biāo)

軟件大?。?span itemprop="fileSize">12 KB
更新日期：2009-07-05
軟件語言：簡體中文
軟件類別：網(wǎng)吧工具
軟件授權(quán)：共享軟件
軟件官網(wǎng)：未知
適用平臺(tái)：Win2003, WinXP, Win2000, NT, WinME
軟件廠商：

10.0分

50% 50%

本地下載文件大?。?2 KB 高速下載需下載高速下載器，提速50%

軟件介紹人氣軟件相關(guān)文章網(wǎng)友評(píng)論下載地址

因需要，今天弄了個(gè)小玩意。自動(dòng)排列圖標(biāo)

程序說明：
如果：當(dāng)前目錄下有seticon.ini配置文件
那么：按配置文件排列圖標(biāo)
否則：記錄當(dāng)前桌面圖標(biāo)的排列信息，生成配置文件seticon.ini

小提示：生成記錄文件的時(shí)候最好別把程序放在桌面運(yùn)行。

請(qǐng)把‘自動(dòng)排列圖標(biāo)去掉’做盤的朋友沒去掉可以用以下這個(gè)VBS搞定，網(wǎng)上找來的，方法比較笨

'''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