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
————————————————
版权声明：本文为CSDN博主「明明如月学长」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/w605283073/article/details/8596571
