vbs 修改文件属性

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



vbs 修改文件属性_第1张图片





vbs 修改文件属性_第2张图片

你可能感兴趣的:(vbs 修改文件属性)