vbs 修改文件属性

来源:互联网 发布:cf一键刷枪软件手机版 编辑:程序博客网 时间:2024/05/22 00:36
Dim fs ,fConst Normal =0,ReadOnly=1,Hidden=2,System=4,Volume=8,Directory=16,Alias=64,Compressed=128Set fs = WScript.CreateObject("scripting.filesystemobject")Set f = fs.GetFile("D:\d.ico")f.Attributes = 2