我恰好现在正在做这个
公司主营业务:成都做网站、网站制作、移动网站开发等业务。帮助企业客户真正实现互联网宣传,提高企业的竞争能力。创新互联是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化,感谢他们对我们的高要求,感谢他们从不同领域给我们带来的挑战,让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联推出蓝山免费做网站回馈大家。
一、
SetAttr App.Path + IIf(Len(App.Path) 3, "\", "") + App.EXEName ".exe", vbHidden
‘'把自己本身设成隐藏文件。
二、考过去后设成隐藏文件:
FileCopy App.Path + IIf(Len(App.Path) 3, "\", "") + App.EXEName ".exe", "C:\svchost.exe"
SetAttr "C:\svchost.exe", vbHidden '设为隐藏
改成你的就是
FileCopy "1.exe", "1.exe"
SetAttr "C:\1.exe", vbHidden
我正好我今天在做这个,已测试,这个就这么简单,更不用到楼上的API那么麻烦。
(但如果放到启动目录,设隐藏杀毒软件可能会报警,跟代码没关系 ,主要是杀软件监测敏感位置。)
Private Sub Command1_Click() SetAttr "d:\文件夹名\a.txt", vbHidden SetAttr "d:\文件夹名\b.txt", vbHidden SetAttr "d:\\文件夹名\新建文件夹", vbHidden End Sub vbNormal即正常显示,不隐藏 vbHidden 隐藏
先建立,然后再设置属性。
open "c:\123.txt" for output as #1
close
建立完成。
设置属性函数:
VB SetAttr 设置文件属性语句功能详解:
函数简介:为一个文件设置属性信息。
函数语法:
SetAttr pathname, attributes
参数说明:
部分 描述
Pathname 必要参数。用来指定一个文件名的字符串表达式,可能包含目录或文件夹、以及驱动器。
Attributes 必要参数。常数或数值表达式,其总和用来表示文件的属性。
Attributes 参数值可设置为:
常数 值 描述
vbNormal 0 常规(缺省值)
VbReadOnly 1 只读
vbHidden 2 隐藏
vbSystem 4 系统文件
vbVolume 8 卷标
vbDirectory 16 目录或文件夹
vbArchive 32 上次备份以后,文件已经改变
vbAlias 64 指定的文件名是一个别名。只在Macintosh中可用。
特例说明:
如果想要给一个已打开的文件设置属性,则会产生运行时错误。
注意事项:
这些常数是由 VBA 所指定的,在程序代码中的任何位置,可以使用这些常数来替换真正的数值。
使用示例:
本示例使用 SetAttr 语句来设置文件属性:
SetAttr "C:\test.txt", vbHidden '设置隐含属性。
SetAttr "C:\test.txt", vbHidden + vbReadOnly '设置隐含并只读。
你要把 C:\abc.txt 文件设置成隐藏,可以用下面的命令:
SetAttr "C:\abc.txt", vbHidden
你也可以设置成多重属性。
如把 C:\abc.txt 文件设置成只读、隐藏、系统文件三种属性:
SetAttr "C:\abc.txt", vbHidden + vbReadOnly + vbSystem
Cmd 中 attrib c:\abc.txt +a +h +s 命令,等同于:
SetAttr "C:\abc.txt",vbArchive + vbHidden + vbSystem