VB.Net如何實(shí)現(xiàn)復(fù)制、刪除文件

這篇文章主要為大家展示了“VB.Net如何實(shí)現(xiàn)復(fù)制、刪除文件”，內(nèi)容簡而易懂，條理清晰，希望能夠幫助大家解決疑惑，下面讓小編帶領(lǐng)大家一起研究并學(xué)習(xí)一下“VB.Net如何實(shí)現(xiàn)復(fù)制、刪除文件”這篇文章吧。

VB.Net語言 復(fù)制、刪除文件代碼：

Imports System.IO  Imports System.IO.Directory  ' ======================================================   ' 實(shí)現(xiàn)一個(gè)靜態(tài)方法將指定文件夾下面的所有內(nèi)容copy到目標(biāo)文件夾下面   ' 如果目標(biāo)文件夾為只讀屬性就會(huì)報(bào)錯(cuò)。   ' ======================================================  Public Shared Sub CopyDir(ByVal srcPath As String, ByVal aimPath As String)  Try  ' 檢查目標(biāo)目錄是否以目錄分割字符\結(jié)束,如果不是則添加之  If aimPath(aimPath.Length - 1) <> Path.DirectorySeparatorChar Then  aimPath += Path.DirectorySeparatorChar  End If  '判斷源目錄是否存在,不存在則退出.  If (Not Directory.Exists(srcPath)) Then Exit Sub  ' 判斷目標(biāo)目錄是否存在如果不存在則新建之  If (Not Directory.Exists(aimPath)) Then Directory.CreateDirectory(aimPath)  ' 得到源目錄的文件列表，該里面是包含文件以及目錄路徑的一個(gè)數(shù)組  ' 如果你指向copy目標(biāo)文件下面的文件而不包含目錄請使用下面的方法  ' string[] fileList = Directory.GetFiles(srcPath)；  Dim fileList() As String = Directory.GetFileSystemEntries(srcPath)  ' 遍歷所有的文件和目錄  For Each FileName As String In fileList  ' 先當(dāng)作目錄處理如果存在這個(gè)目錄就遞歸Copy該目錄下面的文件  If Directory.Exists(FileName) Then  CopyDir(FileName, aimPath + Path.GetFileName(FileName))  ' 否則直接Copy文件  Else  File.Copy(FileName, aimPath + Path.GetFileName(FileName), True)  End If  Next  Catch ex As Exception  MessageBox.Show(ex.ToString())  End Try  End Sub  ' ======================================================   ' 實(shí)現(xiàn)一個(gè)靜態(tài)方法將指定文件夾下面的所有內(nèi)容Detele   ' 測試的時(shí)候要小心*作，刪除之后無法恢復(fù)。   ' ======================================================  Public Shared Sub DeleteDir(ByVal aimPath As String)  Try  ' 檢查目標(biāo)目錄是否以目錄分割字符結(jié)束如果不是則添加之  If (aimPath(aimPath.Length - 1) <> Path.DirectorySeparatorChar) Then  aimPath += Path.DirectorySeparatorChar  End If  '判斷待刪除的目錄是否存在,不存在則退出.  If (Not Directory.Exists(aimPath)) Then Exit Sub  ' 得到源目錄的文件列表，該里面是包含文件以及目錄路徑的一個(gè)數(shù)組  ' 如果你指向Delete目標(biāo)文件下面的文件而不包含目錄請使用下面的方法  ' string[] fileList = Directory.GetFiles(aimPath);  Dim fileList() As String = Directory.GetFileSystemEntries(aimPath)  ' 遍歷所有的文件和目錄  For Each FileName As String In fileList  If (Directory.Exists(FileName)) Then  ' 先當(dāng)作目錄處理如果存在這個(gè)目錄就遞歸Delete該目錄下面的文件  DeleteDir(aimPath + Path.GetFileName(FileName))  Else  ' 否則直接Delete文件  File.Delete(aimPath + Path.GetFileName(FileName))  End If  Next  '刪除文件夾  System.IO.Directory.Delete(aimPath, True)  Catch ex As Exception  MessageBox.Show(ex.ToString())  End Try  End Sub

以上是“VB.Net如何實(shí)現(xiàn)復(fù)制、刪除文件”這篇文章的所有內(nèi)容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內(nèi)容對大家有所幫助，如果還想學(xué)習(xí)更多知識(shí)，歡迎關(guān)注億速云行業(yè)資訊頻道！