VB復(fù)制文件+隱藏

我恰好現(xiàn)在正在做這個(gè)

公司主營業(yè)務(wù)：成都做網(wǎng)站、網(wǎng)站制作、移動(dòng)網(wǎng)站開發(fā)等業(yè)務(wù)。幫助企業(yè)客戶真正實(shí)現(xiàn)互聯(lián)網(wǎng)宣傳，提高企業(yè)的競爭能力。創(chuàng)新互聯(lián)是一支青春激揚(yáng)、勤奮敬業(yè)、活力青春激揚(yáng)、勤奮敬業(yè)、活力澎湃、和諧高效的團(tuán)隊(duì)。公司秉承以“開放、自由、嚴(yán)謹(jǐn)、自律”為核心的企業(yè)文化，感謝他們對我們的高要求，感謝他們從不同領(lǐng)域給我們帶來的挑戰(zhàn)，讓我們激情的團(tuán)隊(duì)有機(jī)會(huì)用頭腦與智慧不斷的給客戶帶來驚喜。創(chuàng)新互聯(lián)推出藍(lán)山免費(fèi)做網(wǎng)站回饋大家。

一、

SetAttr App.Path + IIf(Len(App.Path) 3, "\", "") + App.EXEName ".exe", vbHidden

‘'把自己本身設(shè)成隱藏文件。

二、考過去后設(shè)成隱藏文件：

FileCopy App.Path + IIf(Len(App.Path) 3, "\", "") + App.EXEName ".exe", "C:\svchost.exe"

SetAttr "C:\svchost.exe", vbHidden? ?'設(shè)為隱藏

改成你的就是

FileCopy "1.exe", "1.exe"

SetAttr "C:\1.exe", vbHidden

我正好我今天在做這個(gè)，已測試，這個(gè)就這么簡單，更不用到樓上的API那么麻煩。

（但如果放到啟動(dòng)目錄，設(shè)隱藏殺毒軟件可能會(huì)報(bào)警，跟代碼沒關(guān)系 ，主要是殺軟件監(jiān)測敏感位置。）

VB將當(dāng)前文件夾中的部分文件隱藏

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

vb怎樣建立一個(gè)隱藏屬性的txt文本文件

先建立，然后再設(shè)置屬性。

open "c:\123.txt" for output as #1

close

建立完成。

設(shè)置屬性函數(shù)：

VB SetAttr 設(shè)置文件屬性語句功能詳解：

函數(shù)簡介：為一個(gè)文件設(shè)置屬性信息。

函數(shù)語法：

SetAttr pathname, attributes

參數(shù)說明：

部分 描述

Pathname 必要參數(shù)。用來指定一個(gè)文件名的字符串表達(dá)式，可能包含目錄或文件夾、以及驅(qū)動(dòng)器。

Attributes 必要參數(shù)。常數(shù)或數(shù)值表達(dá)式，其總和用來表示文件的屬性。

Attributes 參數(shù)值可設(shè)置為：

常數(shù) 值 描述

vbNormal 0 常規(guī)(缺省值)

VbReadOnly 1 只讀

vbHidden 2 隱藏

vbSystem 4 系統(tǒng)文件

vbVolume 8 卷標(biāo)

vbDirectory 16 目錄或文件夾

vbArchive 32 上次備份以后，文件已經(jīng)改變

vbAlias 64 指定的文件名是一個(gè)別名。只在Macintosh中可用。

特例說明：

如果想要給一個(gè)已打開的文件設(shè)置屬性，則會(huì)產(chǎn)生運(yùn)行時(shí)錯(cuò)誤。

注意事項(xiàng)：

這些常數(shù)是由 VBA 所指定的，在程序代碼中的任何位置，可以使用這些常數(shù)來替換真正的數(shù)值。

使用示例：

本示例使用 SetAttr 語句來設(shè)置文件屬性：

SetAttr "C:\test.txt", vbHidden '設(shè)置隱含屬性。

SetAttr "C:\test.txt", vbHidden + vbReadOnly '設(shè)置隱含并只讀。

你要把 C:\abc.txt 文件設(shè)置成隱藏，可以用下面的命令：

SetAttr "C:\abc.txt", vbHidden

你也可以設(shè)置成多重屬性。

如把 C:\abc.txt 文件設(shè)置成只讀、隱藏、系統(tǒng)文件三種屬性：

SetAttr "C:\abc.txt", vbHidden + vbReadOnly + vbSystem

Cmd 中 attrib c:\abc.txt +a +h +s 命令，等同于：

SetAttr "C:\abc.txt",vbArchive + vbHidden + vbSystem