按指定位置排列桌面图标
软件介绍人气软件相关文章网友评论下载地址
为您推荐:网吧工具
因需要,今天弄了个小玩意。自动排列图标
程序说明:
如果:当前目录下有seticon.ini配置文件
那么:按配置文件排列图标
否则:记录当前桌面图标的排列信息,生成配置文件seticon.ini
小提示:生成记录文件的时候最好别把程序放在桌面运行。
请把‘自动排列图标去掉’做盘的朋友没去掉可以用以下这个VBS搞定,网上找来的,方法比较笨
程序说明:
如果:当前目录下有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
下载地址
人气软件
相关文章
网友评论共0条