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

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

新聞中心

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

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

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

VB.NET復制刪除文件代碼：

 
 
 
    
  
  
  
  1. VB.NET版   
    2. 
  
  
  
  2. Imports System.IO  
    3. 
  
  
  
  3. Imports System.IO.Directory  
    4. 
  
  
  
  4. ' ======================================================  
    5. 
  
  
  
  5. ' 實現(xiàn)一個靜態(tài)方法將指定文件夾下面的所有內容copy到目標文件夾下面  
    6. 
  
  
  
  6. ' 如果目標文件夾為只讀屬性就會報錯。  
    7. 
  
  
  
  7. ' ======================================================  
    8. 
  
  
  
  8. Public Shared Sub CopyDir(ByVal srcPath As String, ByVal aimPath As String)  
    9. 
  
  
  
  9. Try  
    10. 
  
  
  
  10. ' 檢查目標目錄是否以目錄分割字符\結束,如果不是則添加之  
    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. ' 判斷目標目錄是否存在如果不存在則新建之  
    17. 
  
  
  
  17. If (Not Directory.Exists(aimPath)) Then Directory.CreateDirectory(aimPath)  
    18. 
  
  
  
  18. ' 得到源目錄的文件列表，該里面是包含文件以及目錄路徑的一個數(shù)組  
    19. 
  
  
  
  19. ' 如果你指向copy目標文件下面的文件而不包含目錄請使用下面的方法  
    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. ' 先當作目錄處理如果存在這個目錄就遞歸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. ' 實現(xiàn)一個靜態(tài)方法將指定文件夾下面的所有內容Detele  
    38. 
  
  
  
  38. ' 測試的時候要小心*作，刪除之后無法恢復。  
    39. 
  
  
  
  39. ' ======================================================  
    40. 
  
  
  
  40. Public Shared Sub DeleteDir(ByVal aimPath As String)  
    41. 
  
  
  
  41. Try  
    42. 
  
  
  
  42. ' 檢查目標目錄是否以目錄分割字符結束如果不是則添加之  
    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. ' 得到源目錄的文件列表，該里面是包含文件以及目錄路徑的一個數(shù)組  
    49. 
  
  
  
  49. ' 如果你指向Delete目標文件下面的文件而不包含目錄請使用下面的方法  
    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. ' 先當作目錄處理如果存在這個目錄就遞歸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.

以上就是關于VB.NET復制刪除文件的一個代碼的演示，跑跑試試吧！


文章標題：罕見VB.NET復制刪除文件完整示例
網(wǎng)站網(wǎng)址：http://m.5511xx.com/article/cddcsjj.html