vb点虐 设置文件隐藏 vb隐藏显示代码怎么写

VB复制文件+隐藏

我恰好现在正在做这个

公司主营业务：成都做网站、网站制作、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。创新互联是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联推出蓝山免费做网站回馈大家。

一、

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那么麻烦。

（但如果放到启动目录，设隐藏杀毒软件可能会报警，跟代码没关系 ，主要是杀软件监测敏感位置。）

VB将当前文件夹中的部分文件隐藏

Private Sub Command1_Click() SetAttr "d:\文件夹名\a.txt", vbHidden SetAttr "d:\文件夹名\b.txt", vbHidden SetAttr "d:\\文件夹名\新建文件夹", vbHidden End Sub vbNormal即正常显示，不隐藏 vbHidden 隐藏

vb怎样建立一个隐藏属性的txt文本文件

先建立，然后再设置属性。

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