秘制酸汤鱼薯片下架了?:VB黑客从此开始~!

来源:百度文库 编辑:高校问答 时间:2024/05/03 12:34:22
请问在VB里怎么给已存在的文件加上隐藏属性和去掉隐藏属性啊~!
请定一个实例代码给我,菜鸟在此谢过了。

SETAtt 文件名,属性

要用API
Const FILE_ATTRIBUTE_TEMPORARY = &H100
Private Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long

sub set_attrib()
SetFileAttributes "c:\myfile\filex.doc", FILE_ATTRIBUTE_TEMPORARY
end sub