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

分享名稱：vb點虐 設置文件隱藏 vb隱藏顯示代碼怎么寫
URL網址：http://www.yijiale78.com/article36/ddgejsg.html

成都網站建設公司_創新互聯，為您提供品牌網站設計、網站排名、云服務器、做網站、靜態網站、品牌網站制作

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯