“文件粉碎機”的ＶＢ程序實現

柏昌順

摘要：描述了文件刪除的原理。“文件粉碎機”的原理及其應用，并介紹了以VB程序實現“文件粉碎機”的整個過程。

關鍵詞：文件粉碎機VBAPI函數Dir函數

“文件粉碎機”能夠將文件徹底的銷毀的一種程序。其原理就是將需要銷毀的文件所占用的空間使用無意義的符號重新填充一遍，然后再將文件刪除，從而達到完全刪除文件的目的。

1界面的設計

(1)啟動VB，新建一個標準EXEDialog Control 6.0部件：從“工程”菜單中選擇“部件”命令，打開“部件”對話框。然后在Microsoft Common DialogControl 6.0部件前的復選框中打勾；(3)在forml窗體上依次創建一個ListBox.一個CommonDialog,一個Pro-gressBar及五個Command控件，屬性設置。設計完成后效果。

2“添加文件”功能的設計

“添加文件”命令的功能主要是利用CommonDialog控件顯示“打開”對話框，將待粉碎的文件加入到列表框中。該功能的難點在于文件的多選(利用etrl或shift鍵的配合，一次選擇多個文件)，及其多選后將每個文件從返回的filename中分離出來。通常情況下CommonDialog控件是只能單選的，也就是一次只能選擇一個文件。如果要實現多選，則需將commondialog控件的flags屬性設置為：cdlOFNAllow-Multiselect+cdlOFNExolorer。

另外，我們還必需掌握“打開”對話框的返回值filename的格式。返回的filename是一個字符串，當僅選擇一個文件時返回值是文件的完整路徑和文件名；如果選擇的是多個文件，則返回字符串的格式為：路徑文件1文件2……文件n，路徑及文件名之間以空格隔開。實現方法如下：

3“添加目錄”功能的設計

“添加目錄”功能主要是用來將所選擇目錄及其子目錄里的所有文件都加入到待粉碎列表框中。“添加目錄”功能也是本系統中的一個難點。在VB中雖然為我們提供了DirveListBox(驅動器列表)，DirListBox(目錄列表)。FileListBox(文件列表)，CommonDia-log(通用對話框)等控件，這些控件用來瀏覽文件及文件夾或選擇文件時比較好用，但要用他們來實現添加目錄的功能還是比較困難的。本文使用了SHBrowseForFolder和SHGetPathFro-mlDList兩個API函數來顯示目錄選擇對話框，另外編寫了一個findfih過程實現對文件夾的遍歷。該過程利用VB提供的一個檢測文件是否存在的函數Dir和動態數組對文件夾以廣度優先的順序進行遍歷。

3．1 API函數使用說明

使用API函數需要聲明DLL過程，在代碼窗口的“聲明”部分增加一個Declare語句。如該過程返回一個值，應將其聲明為Function，格式如下：

如果過程沒有返回值，可將其聲明為Sub，格式如下：

3．2Dir函數使用說明

Dir函數返回一個String，用以表示一個文件名、目錄名或文件夾名稱，它必須與指定的模式或文件屬性、或磁盤卷標相匹配。語法：Dir[(pathname[，attributes])]，Dir函數的語法具有以下幾個部分：

在第一次調用Dir函數時，必須指定pathname，否則會產生錯誤。如果也指定了文件屬性，那么就必須包括pathname，Dir會返回匹配pathname的第一個文件名。若想得到其它匹配pathname的文件名，再一次調用Dir。且不要使用參數。如果已沒有合乎條件的文件，則Dir會返回一個零長度字符串("")。一旦返回值為零長度字符串，并要再次調用Dir時，就必須指定pathname，否則會產生錯誤。不必訪問到所有匹配當前pathname的文件名，就可以改變到一個新的pathname上，但不能以遞歸方式來調用Dir函數。以vbDirectory屬性來調用Dir不能連續返回子目錄。

3．3實現代碼如下

List1.RemoveItem List 1.ListIndex

End Sub

6結束語

通過“文件粉碎機”的學習，讀者能更深該地理解文件在計算機里的存在形式，對大家將來在重要電子文件的管理中有一定的指導意義。本人在開發過程中也對VB的文件處理有了更深的理解，特別是對API函數，它能實現許多我們意想不到的效果。