建站
咨詢
售后
建站咨詢
新聞中心
這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷解決方案
罕見VB.NET復(fù)制刪除文件完整示例
有些人認(rèn)為操作文件是一件非常簡(jiǎn)單的是，其實(shí)并不是，如果你沒有權(quán)限你就不能對(duì)文件進(jìn)行更改，但是我們今天不講權(quán)限的問題，我們來對(duì)VB.NET復(fù)制刪除文件這個(gè)問題進(jìn)行簡(jiǎn)單的介紹一下。
創(chuàng)新互聯(lián)建站-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設(shè)、高性價(jià)比芝罘網(wǎng)站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫(kù),直接使用。一站式芝罘網(wǎng)站制作公司更省心,省錢,快速模板網(wǎng)站建設(shè)找我們，業(yè)務(wù)覆蓋芝罘地區(qū)。費(fèi)用合理售后完善，十年實(shí)體公司更值得信賴。
VB.NET復(fù)制刪除文件代碼：
- VB.NET版
- 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)文件下面的文件而不包含目錄請(qǐng)使用下面的方法
- ' 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
- ' 測(cè)試的時(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)文件下面的文件而不包含目錄請(qǐng)使用下面的方法
- ' 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
以上就是關(guān)于VB.NET復(fù)制刪除文件的一個(gè)代碼的演示，跑跑試試吧！
網(wǎng)頁題目：罕見VB.NET復(fù)制刪除文件完整示例
本文網(wǎng)址：http://m.fisionsoft.com.cn/article/cddcsjj.html
