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 = “目錄的完整路徑”