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

如题 问题点数：20、回复次数：4Top

1 楼faysky2（出来混，迟早是要还嘀）回复于 2006-03-04 14:23:48 得分 0

SetAttr   pathname,   attributesTop

2 楼faysky2（出来混，迟早是要还嘀）回复于 2006-03-04 14:27:44 得分 0

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   所指定的，在程序代码中的任何位置，可以使用这些常数来替换真正的数值。  
   
  说明  
   
  如果想要给一个已打开的文件设置属性，则会产生运行时错误。  
  Top

3 楼chenhui530（陈辉）回复于 2006-03-04 15:21:06 得分 0

If   GetAttr("c:\test.txt")   And   1   Then   SetAttr   "c:\test.txt",   0Top

4 楼rainstormmaster（暴风雨 v2.0）回复于 2006-03-04 18:57:26 得分 0

用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_??前缀的一个或多个常数  
   
  Top

相关问题

• 属性
• 文件
• 常数
• setattr
• 参数
• 设置
• pathname
• txt
• 表示
• attribute

• 帖主：yingxiangchen

• Visual Basic类图书
• Visual Basic类源码下载