VB 批量修改屬性

之前寫的USB防毒最近發現了一些小問題….
最開始是使用 cmd 的指令來刪除病毒
但是發現太吃資源
所以改用 VB內建的指令來刪除
但是刪除前必須解除刪除檔案的屬性
所以呢…
就使用 dir 來先取得檔案名稱
再用 SetFileAttributes 來修正檔案屬性
這樣雖然可以達成目的
但是最近發現了問題
dir會造成磁區為鎖定的狀態
也就是 這個磁區有程式在使用所以無法『安全地移除』
只能強行達除…
所以咧…
從新思考 不能使用 dir 來幫助
因此我想到VB內建的元件
它可以達成取得檔名的動作

就來分享一下心得囉 ^^ 哈哈

第1步:開啟VB程式

這雖然是廢話 但很重要…

第2步:拉一個 filelistbox出來

第3步:修改 file1 的屬性 – 顯示隱藏

第4步:修改 file1 的屬性 – 顯示系統檔

第5步:新增一個API指令

————-
Private Declare Function SetFileAttributes Lib “kernel32″ Alias “SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long
————–
((這就不拍圖

第6步:設定目錄

File1 = “目錄的完整路徑"

第7步:設定要修改的檔案類型

File1.Pattern = “*.cmd"
這是代表 所有的 cmd 檔案

第8步:增加個 for 迴圈

迴圈 要顯示的資料
就是整個 file1 的資料

第9步:新增動作

既然裡面都會顯示資料
就可以利用那個資料來進行解除隱藏的指令
Categorized: 未分類

Comments are closed.