日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時(shí)間：8:30-17:00
你可能遇到了下面的問(wèn)題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷解決方案
罕見(jiàn)VB.NET復(fù)制刪除文件完整示例

有些人認(rèn)為操作文件是一件非常簡(jiǎn)單的是，其實(shí)并不是，如果你沒(méi)有權(quán)限你就不能對(duì)文件進(jìn)行更改，但是我們今天不講權(quán)限的問(wèn)題，我們來(lái)對(duì)VB.NET復(fù)制刪除文件這個(gè)問(wèn)題進(jìn)行簡(jiǎn)單的介紹一下。

創(chuàng)新互聯(lián)建站-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設(shè)、高性價(jià)比芝罘網(wǎng)站開(kāi)發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫(kù),直接使用。一站式芝罘網(wǎng)站制作公司更省心,省錢,快速模板網(wǎng)站建設(shè)找我們，業(yè)務(wù)覆蓋芝罘地區(qū)。費(fèi)用合理售后完善，十年實(shí)體公司更值得信賴。

VB.NET復(fù)制刪除文件代碼：

 
 
 
    
  
  
  
  1. VB.NET版   
    2. 
  
  
  
  2. Imports System.IO  
    3. 
  
  
  
  3. Imports System.IO.Directory  
    4. 
  
  
  
  4. ' ======================================================  
    5. 
  
  
  
  5. ' 實(shí)現(xiàn)一個(gè)靜態(tài)方法將指定文件夾下面的所有內(nèi)容copy到目標(biāo)文件夾下面  
    6. 
  
  
  
  6. ' 如果目標(biāo)文件夾為只讀屬性就會(huì)報(bào)錯(cuò)。  
    7. 
  
  
  
  7. ' ======================================================  
    8. 
  
  
  
  8. Public Shared Sub CopyDir(ByVal srcPath As String, ByVal aimPath As String)  
    9. 
  
  
  
  9. Try  
    10. 
  
  
  
  10. ' 檢查目標(biāo)目錄是否以目錄分割字符\結(jié)束,如果不是則添加之  
    11. 
  
  
  
  11. If aimPath(aimPath.Length - 1) <> Path.DirectorySeparatorChar Then  
    12. 
  
  
  
  12. aimPath += Path.DirectorySeparatorChar  
    13. 
  
  
  
  13. End If  
    14. 
  
  
  
  14. '判斷源目錄是否存在,不存在則退出.  
    15. 
  
  
  
  15. If (Not Directory.Exists(srcPath)) Then Exit Sub  
    16. 
  
  
  
  16. ' 判斷目標(biāo)目錄是否存在如果不存在則新建之  
    17. 
  
  
  
  17. If (Not Directory.Exists(aimPath)) Then Directory.CreateDirectory(aimPath)  
    18. 
  
  
  
  18. ' 得到源目錄的文件列表，該里面是包含文件以及目錄路徑的一個(gè)數(shù)組  
    19. 
  
  
  
  19. ' 如果你指向copy目標(biāo)文件下面的文件而不包含目錄請(qǐng)使用下面的方法  
    20. 
  
  
  
  20. ' string[] fileList = Directory.GetFiles(srcPath);  
    21. 
  
  
  
  21. Dim fileList() As String = Directory.GetFileSystemEntries(srcPath)  
    22. 
  
  
  
  22. ' 遍歷所有的文件和目錄  
    23. 
  
  
  
  23. For Each FileName As String In fileList  
    24. 
  
  
  
  24. ' 先當(dāng)作目錄處理如果存在這個(gè)目錄就遞歸Copy該目錄下面的文件  
    25. 
  
  
  
  25. If Directory.Exists(FileName) Then  
    26. 
  
  
  
  26. CopyDir(FileName, aimPath + Path.GetFileName(FileName))  
    27. 
  
  
  
  27. ' 否則直接Copy文件  
    28. 
  
  
  
  28. Else  
    29. 
  
  
  
  29. File.Copy(FileName, aimPath + Path.GetFileName(FileName), True)  
    30. 
  
  
  
  30. End If  
    31. 
  
  
  
  31. Next  
    32. 
  
  
  
  32. Catch ex As Exception  
    33. 
  
  
  
  33. MessageBox.Show(ex.ToString())  
    34. 
  
  
  
  34. End Try  
    35. 
  
  
  
  35. End Sub  
    36. 
  
  
  
  36. ' ======================================================  
    37. 
  
  
  
  37. ' 實(shí)現(xiàn)一個(gè)靜態(tài)方法將指定文件夾下面的所有內(nèi)容Detele  
    38. 
  
  
  
  38. ' 測(cè)試的時(shí)候要小心*作，刪除之后無(wú)法恢復(fù)。  
    39. 
  
  
  
  39. ' ======================================================  
    40. 
  
  
  
  40. Public Shared Sub DeleteDir(ByVal aimPath As String)  
    41. 
  
  
  
  41. Try  
    42. 
  
  
  
  42. ' 檢查目標(biāo)目錄是否以目錄分割字符結(jié)束如果不是則添加之  
    43. 
  
  
  
  43. If (aimPath(aimPath.Length - 1) <> Path.DirectorySeparatorChar) Then  
    44. 
  
  
  
  44. aimPath += Path.DirectorySeparatorChar  
    45. 
  
  
  
  45. End If  
    46. 
  
  
  
  46. '判斷待刪除的目錄是否存在,不存在則退出.  
    47. 
  
  
  
  47. If (Not Directory.Exists(aimPath)) Then Exit Sub  
    48. 
  
  
  
  48. ' 得到源目錄的文件列表，該里面是包含文件以及目錄路徑的一個(gè)數(shù)組  
    49. 
  
  
  
  49. ' 如果你指向Delete目標(biāo)文件下面的文件而不包含目錄請(qǐng)使用下面的方法  
    50. 
  
  
  
  50. ' string[] fileList = Directory.GetFiles(aimPath);  
    51. 
  
  
  
  51. Dim fileList() As String = Directory.GetFileSystemEntries(aimPath)  
    52. 
  
  
  
  52. ' 遍歷所有的文件和目錄  
    53. 
  
  
  
  53. For Each FileName As String In fileList  
    54. 
  
  
  
  54. If (Directory.Exists(FileName)) Then  
    55. 
  
  
  
  55. ' 先當(dāng)作目錄處理如果存在這個(gè)目錄就遞歸Delete該目錄下面的文件  
    56. 
  
  
  
  56. DeleteDir(aimPath + Path.GetFileName(FileName))  
    57. 
  
  
  
  57. Else  
    58. 
  
  
  
  58. ' 否則直接Delete文件  
    59. 
  
  
  
  59. File.Delete(aimPath + Path.GetFileName(FileName))  
    60. 
  
  
  
  60. End If  
    61. 
  
  
  
  61. Next  
    62. 
  
  
  
  62. '刪除文件夾  
    63. 
  
  
  
  63. System.IO.Directory.Delete(aimPath, True)  
    64. 
  
  
  
  64. Catch ex As Exception  
    65. 
  
  
  
  65. MessageBox.Show(ex.ToString())  
    66. 
  
  
  
  66. End Try  
    67. 
  
  
  
  67. End Sub 
    68.

以上就是關(guān)于VB.NET復(fù)制刪除文件的一個(gè)代碼的演示，跑跑試試吧！


當(dāng)前題目：罕見(jiàn)VB.NET復(fù)制刪除文件完整示例
瀏覽地址：http://www.5511xx.com/article/cddcsjj.html