vb中的SetAttribute命令怎么用

来源：百度知道 编辑：UC知道 时间：2024/05/29 15:36:11
我想建立一个文件，然后把他变为隐藏，怎么用setattribute这个命令
Private Sub Command1_Click()
Dim filename As String
filename = "d:\fj.txt"
Open filename For Output As #1
Print #1, "这里写入文件内容"
Close #1
为什么是语法错误的，我想在d盘建立一个文本，再把他变成隐藏
SetFileAttributes("d:\autorun.inf",FILE_ATTRIBUTE_HIDDEN)
End Sub

完成你要求的功能，用SetAttr 语句就可以了。

语法：
SetAttr pathname, attributes

参数说明：
pathname 必要参数。用来指定一个文件名的字符串表达式，可能包含目录或文件夹、以及驱动器。
Attributes 必要参数。常数或数值表达式，其总和用来表示文件的属性。
attributes 参数设置可为：
常数 值 描述
vbNormal 0 常规（缺省值）
VbReadOnly 1 只读。
vbHidden 2 隐藏。
vbSystem 4 系统文件
vbArchive 32 上次备份以后，文件已经改变

如，你要把C:\abc.txt文件设置成隐藏，可以用下面的命令：
SetAttr "C:\abc.txt",vbHidden
你也可以设置成多重属性，如把C:\abc.txt文件设置成只读、隐藏、系统文件三种属性：
SetAttr "C:\abc.txt",vbHidden + vbReadOnly + vbSystem

Public Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long
Public Const FILE_ATTRIBUTE_ARCHIVE = &H20
Public Const FILE_ATTRIBUTE_COMPRESSED = &H800
Public Const FILE_ATTRIBUTE_DIRECTORY = &H10
Public Const FILE_ATTRIBUT