您的位置:首页 > 编程语言 > ASP

ASP 修改文件的属性——把文件的由可读修改为只读

2008-08-04 14:32 716 查看
<%

'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

%>
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: