梁玉玺产品怎么样:VB黑客从此开始~!

来源:百度文库 编辑:中科新闻网 时间:2024/05/06 18:08:35
请问在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