如何改变一个文件的属性(只读/正常)

yingxiangchen 2006-03-04 01:43:37
如题
...全文
288 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
rainstormmaster 2006-03-04
  • 打赏
  • 举报
回复
用api的话就用SetFileAttributes:
【VB声明】
Private Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long

【别名】
SetFileAttributesA

【说明】
设置文件属性

【返回值】
Long,非零表示成功,零表示失败。会设置GetLastError

【参数表】
lpFileName ----- String,要设置其属性的文件名

dwFileAttributes - Long,带有FILE_ATTRIBUTE_??前缀的一个或多个常数

chenhui530 2006-03-04
  • 打赏
  • 举报
回复
If GetAttr("c:\test.txt") And 1 Then SetAttr "c:\test.txt", 0
faysky2 2006-03-04
  • 打赏
  • 举报
回复
SetAttr "C:\test.txt",vbReadOnly '只读
SetAttr "C:\test.txt",vbNormal '正常
======================================================

SetAttr 语句


为一个文件设置属性信息。

语法

SetAttr pathname, attributes

SetAttr 语句的语法含有以下这些命名参数:

部分 描述
pathname 必要参数。用来指定一个文件名的字符串表达式,可能包含目录或文件夹、以及驱动器。
Attributes 必要参数。常数或数值表达式,其总和用来表示文件的属性。


设置值

attributes 参数设置可为:

常数 值 描述
vbNormal 0 常规(缺省值)
VbReadOnly 1 只读。
vbHidden 2 隐藏。
vbSystem 4 系统文件
vbArchive 32 上次备份以后,文件已经改变


注意 这些常数是由 VBA 所指定的,在程序代码中的任何位置,可以使用这些常数来替换真正的数值。

说明

如果想要给一个已打开的文件设置属性,则会产生运行时错误。
faysky2 2006-03-04
  • 打赏
  • 举报
回复
SetAttr pathname, attributes

1,488

社区成员

发帖
与我相关
我的任务
社区描述
VB API
社区管理员
  • API
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧