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

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

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

---