罕見的VB.NET復制刪除文件完整示例

　　有些人認為操作文件是一件非常簡單的是其實並不是如果你沒有權限你就不能對文件進行更改但是我們今天不講權限的問題我們來對VBNET復制刪除文件這個問題進行簡單的介紹一下

　　VBNET復制刪除文件代碼

　　
VBNET版    
Imports SystemIO   
Imports SystemIODirectory   
 ======================================================   
 實現一個靜態方法將指定文件夾下面的所有內容copy到目標文件夾下面   
 如果目標文件夾為只讀屬性就會報錯   
 ======================================================   
Public Shared Sub CopyDir(ByVal srcPath As String ByVal aimPath As String)   
Try   
 檢查目標目錄是否以目錄分割字符\結束如果不是則添加之   
If aimPath(aimPathLength  ) <> PathDirectorySeparatorChar Then   
aimPath += PathDirectorySeparatorChar   
End If   
判斷源目錄是否存在不存在則退出   
If (Not DirectoryExists(srcPath)) Then Exit Sub   
 判斷目標目錄是否存在如果不存在則新建之   
If (Not DirectoryExists(aimPath)) Then DirectoryCreateDirectory(aimPath)   
 得到源目錄的文件列表該裡面是包含文件以及目錄路徑的一個數組   
 如果你指向copy目標文件下面的文件而不包含目錄請使用下面的方法   
 string[] fileList = DirectoryGetFiles(srcPath);   
Dim fileList() As String = DirectoryGetFileSystemEntries(srcPath)   
 遍歷所有的文件和目錄   
For Each FileName As String In fileList   
 先當作目錄處理如果存在這個目錄就遞歸Copy該目錄下面的文件   
If DirectoryExists(FileName) Then   
CopyDir(FileName aimPath + PathGetFileName(FileName))   
 否則直接Copy文件   
Else   
FileCopy(FileName aimPath + PathGetFileName(FileName) True)   
End If   
Next   
Catch ex As Exception   
MessageBoxShow(exToString())   
End Try   
End Sub   
 ======================================================   
 實現一個靜態方法將指定文件夾下面的所有內容Detele   
 測試的時候要小心*作刪除之後無法恢復   
 ======================================================   
Public Shared Sub DeleteDir(ByVal aimPath As String)   
Try   
 檢查目標目錄是否以目錄分割字符結束如果不是則添加之   
If (aimPath(aimPathLength  ) <> PathDirectorySeparatorChar) Then   
aimPath += PathDirectorySeparatorChar   
End If   
判斷待刪除的目錄是否存在不存在則退出   
If (Not DirectoryExists(aimPath)) Then Exit Sub   
 得到源目錄的文件列表該裡面是包含文件以及目錄路徑的一個數組   
 如果你指向Delete目標文件下面的文件而不包含目錄請使用下面的方法   
 string[] fileList = DirectoryGetFiles(aimPath);   
Dim fileList() As String = DirectoryGetFileSystemEntries(aimPath)   
 遍歷所有的文件和目錄   
For Each FileName As String In fileList   
If (DirectoryExists(FileName)) Then   
 先當作目錄處理如果存在這個目錄就遞歸Delete該目錄下面的文件   
DeleteDir(aimPath + PathGetFileName(FileName))   
Else   
 否則直接Delete文件   
FileDelete(aimPath + PathGetFileName(FileName))   
End If   
Next   
刪除文件夾   
SystemIODirectoryDelete(aimPath True)   
Catch ex As Exception   
MessageBoxShow(exToString())   
End Try   
End Sub 

　　以上就是關於VBNET復制刪除文件的一個代碼的演示跑跑試試吧!

From:http://tw.wingwit.com/Article/program/net/201311/11756.html