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("1.TXT") f.Attributes = 0 Normal=0,普通文件，不设属性 ReadOnly=1,只读文件，读/写 Hidden=2,隐藏文件，读/写 System=4,系统文件，读/写 Volume=8,磁盘驱动器卷标，只读 Directory=16,文件夹或目录，只读 Archive=32,文件在上次备份后已经修改，读/写 Alias=64,链接或快捷方式，只读 Compressed=128 ,压缩文件，只读 Attributes= 0显示，可读，可以手动隐藏，属性N 1显示，只读，可以手动隐藏，属性R 2隐藏，可读，可以手动隐藏，属性H 3隐藏，只读，可以手动隐藏，属性RH 4显示，可读，不可手动隐藏，属性S 5显示，只读，不可手动隐藏，属性RS 6隐藏，可读，不可手动隐藏，属性HS 7隐藏，只读，不可手动隐藏，属性RHS 8同0 9同1 10同2 11同3 12同4 ....... 19同3 ....... 29同5 ....... 90同2,属性H ....... 100同4,属性SA ....... 119同7,属性RHSA ....... 229同5,属性RSA 复制代码
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("1.TXT") f.Attributes = 0 Normal=0,普通文件，不设属性 ReadOnly=1,只读文件，读/写 Hidden=2,隐藏文件，读/写 System=4,系统文件，读/写 Volume=8,磁盘驱动器卷标，只读 Directory=16,文件夹或目录，只读 Archive=32,文件在上次备份后已经修改，读/写 Alias=64,链接或快捷方式，只读 Compressed=128 ,压缩文件，只读 Attributes= 0显示，可读，可以手动隐藏，属性N 1显示，只读，可以手动隐藏，属性R 2隐藏，可读，可以手动隐藏，属性H 3隐藏，只读，可以手动隐藏，属性RH 4显示，可读，不可手动隐藏，属性S 5显示，只读，不可手动隐藏，属性RS 6隐藏，可读，不可手动隐藏，属性HS 7隐藏，只读，不可手动隐藏，属性RHS 8同0 9同1 10同2 11同3 12同4 ....... 19同3 ....... 29同5 ....... 90同2,属性H ....... 100同4,属性SA ....... 119同7,属性RHSA ....... 229同5,属性RSA