欢迎光临
我们一直在努力
扫描二维码在手机上浏览
系统教程

Windows系统下自动排列桌面图标

在网吧或者公司等电脑多的地方,桌面图标不规则排序,非常影响美观,所以有时候就需要这个。

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

把上面代码存为 自动排列桌面图标.vbs 文件运行即可。

THE END
历史上的今天
十二月
5
    哇哦~~~,历史上的今天没发表过文章哦
喜欢就支持一下吧!!!
点赞0打赏分享
版权声明
本站文章除注明转载外,均为本站原创或翻译,欢迎任何形式的转载,但请务必注明出处,尊重他人劳动。
转载请注明:文章转载自:灵阳星空 » Windows系统下自动排列桌面图标
本文标题:Windows系统下自动排列桌面图标
本文日期:本文发表于 2019/12/05 22:21:24,最后更新于 2019/12/05 22:21:24,如内容失效,请反馈给我们,谢谢!
本文地址: https://www.jsksky.com/arrange-desktop-icons-automatically-under-windows-system.html

网络臭虫

已发布503篇文章
吃得苦中苦,方为人上人,不卧薪藏胆,哪能苦尽甘来?点击进入我的网站了解更多有关我的信息。

评论 抢沙发

A 作者 M 管理员

评论前必须登录!

 


觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏