Question

VB更改文件属性

消除一个文件的“只读文件、隐藏文件、系统文件”属性，不创建批处理文件，直接用API或……，行吗？
拜托，时VB，cmd修改谁不会啊……

Answer 1

可以在DOS状态下进行更改，需要用到两个命令cd和attrib。
操作步骤：开始→运行→输入cmd，dos窗口弹出。
我举个例子，你要更改属性的那个文件名字为b，在d盘的a文件夹下，首先需要进入d盘的a文件夹：下面需要用到cd命令，cd的基本意思就是进入或者返回上一级文件夹。输入d：回车，就已经进入d盘，接着输入cd a回车，这样就进入a文件夹了。
下面将用到attrib命令来更改文件b的属性，attrib指令用于修改文件的属性.文件的常见属性有:只读、存档、隐藏和系统，R 只读文件属性、A 存档文件属性、S 系统文件属性、H 隐藏文件属性。输入attrib b（文件名） -h就可以去掉b的隐藏属性了。-代表去除属性，+代表赋予属性。

注意：1.如果你的文件路径或者文件名中有中文的话，在dos状态下按ctrl+空格可以切换到中文输入法，无法切换的话可以把你的文件夹名称改为英文。
2.如果输入attrib b -h不管用的话，说明它可能具有系统属性或者只读属性，那就再次输入attrib b -h -a -s -r。这样会去除它的所有属性。
祝你成功伙计！

Answer 2

Const vbReadOnly = 1 '只读
Const vbHidden = 2 '隐藏
Const vbSystem = 4 '系统
f = "C:\boot.ini" '文件名
a = GetAttr(f) '获取文件属性
SetAttr f, a And Not (vbReadOnly + vbHidden + vbSystem) '更改文件属性

Answer 3

一行代码就搞定了
SetAttr "文件路径", vbNormal