用於復制和刪除VB.Net語言文件的代碼:
進口系統。超正析象管(Image Orthicon)
進口系統。IO .目錄
' ======================================================
實現壹個靜態方法將指定文件夾下的所有內容復制到目標文件夾。
如果目標文件夾是只讀的，將會報告錯誤。
' ======================================================
公共共享子副本目錄（ByVal srcPath作為字符串，ByVal aimPath作為字符串）
嘗試
檢查目標目錄是否以目錄分隔符\“結尾，如果不是，請添加它。
if aim path（aim path。長度- 1）
路徑。那麽是獨立董事
aimPath +=路徑。目錄分離
如果…就會結束
判斷源目錄是否存在，如果不存在則退出。
如果（不是目錄。exists（src path））然後退出Sub
判斷目標目錄是否存在，如果不存在，則創建壹個新目錄。
如果（不是目錄。存在（aimPath））然後目錄。創建目錄（aimPath）
獲取源目錄中的文件列表，其中包含文件和目錄路徑的數組。
如果您指向復制目標文件下面的文件而沒有目錄，請使用以下方法。
string【】file list =目錄。get files（src path）；
Dim fileList（）格式為String = Directory。GetFileSystemEntries（src path）
遍歷所有文件和目錄。
對於文件列表中字符串形式的每個文件名
先把它當作壹個目錄。如果該目錄存在，遞歸復制其下的文件。
如果目錄。存在（文件名）然後
CopyDir（文件名，路徑名+路徑。GetFileName（文件名））
否則直接復制文件。
其他
文件。復制（文件名，路徑+路徑。GetFileName（文件名），True）
如果…就會結束
然後
將ex作為異常捕獲
MessageBox。顯示（例如ToString（））
結束嘗試
末端接頭
' ======================================================
實現靜態方法將指定文件夾下的所有內容。
測試時要小心，刪除後無法恢復。
' ======================================================
公共共享Sub delete dir（ByVal aim path作為字符串）
嘗試
檢查目標目錄是否以目錄分隔符結尾，如果不是，則添加它。
if（aim path（aim path。長度- 1）
路徑。DirectorySeparatorChar）然後
aimPath +=路徑。目錄分離
如果…就會結束
判斷要刪除的目錄是否存在，如果不存在則退出。
如果（不是目錄。存在（aimPath））然後退出Sub
獲取源目錄中的文件列表，其中包含文件和目錄路徑的數組。
如果您指向刪除目標文件下面的文件並且不包含目錄，請使用以下方法。
string【】file list =目錄。get files（aim path）；
Dim fileList（）格式為String = Directory。GetFileSystemEntries（aim path）
遍歷所有文件和目錄。
對於文件列表中字符串形式的每個文件名
如果（目錄。存在（文件名）那麽
先把它當作壹個目錄。如果該目錄存在，遞歸刪除其下的文件。
delete dir（aim Path+Path。GetFileName（文件名））
其他
否則直接刪除文件。
文件。刪除（aimPath + Path。GetFileName（文件名））
如果…就會結束
然後
刪除文件夾
系統。IO . directory . delete（aim path，True）
將ex作為異常捕獲
MessageBox。顯示（例如ToString（））
結束嘗試
末端接頭