海纳百川,有容乃大
善于总结,积累软财富

<%
  '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\NNbrank.com\html\news\20088\83195.htm")
 
if  f.attributes <> 1 then
    f.attributes = 1
end if

%>

 

 

posted on 2008-08-04 14:32  海纳百川  阅读(2104)  评论(0编辑  收藏  举报

首页原创.NET区 div1
.NET新手区 div2
精华区 div3
专家区 div4
读书心得区 div5
百度主题实验室
百度主题推广 div7

-->