Dim fs ,f Const Normal =0,ReadOnly=1,Hidden=2,System=4,Volume=8,Directory=16,Alias=64,Compressed=128 Set fs = WScript.CreateObject("scripting.filesystemobject") Set f = fs.GetFile("D:\d.ico") f.Attributes = 2
本文分享自 作者个人站点/博客 前往查看
如有侵权,请联系 cloudcommunity@tencent.com 删除。
本文参与 腾讯云自媒体同步曝光计划 ,欢迎热爱写作的你一起参与!