建站
咨詢
售后
建站咨詢
新聞中心
這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
VB.Net如何實(shí)現(xiàn)復(fù)制、刪除文件
這篇文章主要為大家展示了“VB.Net如何實(shí)現(xiàn)復(fù)制、刪除文件”，內(nèi)容簡而易懂，條理清晰，希望能夠幫助大家解決疑惑，下面讓小編帶領(lǐng)大家一起研究并學(xué)習(xí)一下“VB.Net如何實(shí)現(xiàn)復(fù)制、刪除文件”這篇文章吧。
創(chuàng)新互聯(lián)公司主要從事成都網(wǎng)站建設(shè)、做網(wǎng)站、網(wǎng)頁設(shè)計(jì)、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)新賓,10年網(wǎng)站建設(shè)經(jīng)驗(yàn),價(jià)格優(yōu)惠、服務(wù)專業(yè),歡迎來電咨詢建站服務(wù):028-86922220
VB.Net語言 復(fù)制、刪除文件代碼：
Imports System.IO Imports System.IO.Directory ' ====================================================== ' 實(shí)現(xiàn)一個(gè)靜態(tài)方法將指定文件夾下面的所有內(nèi)容copy到目標(biāo)文件夾下面 ' 如果目標(biāo)文件夾為只讀屬性就會報(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í)更多知識，歡迎關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道！
網(wǎng)站題目：VB.Net如何實(shí)現(xiàn)復(fù)制、刪除文件
文章轉(zhuǎn)載：http://ef60e0e.cn/article/gecesh.html
