文件属性 – 青春部落，流年似水

Nelson — Mon, 04 Aug 2014 01:17:01 +0000

<%
  'Normal   0   普通文件。没有设置任何属性。     
  'ReadOnly   1   只读文件。可读写。     
  'Hidden   2   隐藏文件。可读写。     
  'System   4   系统文件。可读写。     
  'Volume   8   磁盘驱动器卷标。只读。     
  'Directory   16   文件夹或目录。只读。     
  'Archive   32   上次备份后已更改的文件。可读写。     
  'Alias   64   链接或快捷方式。只读。   
Dim fso,f  
 
Set   fso =  CreateObject("Scripting.FileSystemObject")   
Set   f   =  fso.GetFile("D:\WebSite\sunge\html\test\test.htm") 
 
if  f.attributes <> 1 then
    f.attributes = 1
end if
%>