最近2018中文字幕在日韩欧美国产成人片_国产日韩精品一区二区在线_在线观看成年美女黄网色视频_国产精品一区三区五区_国产精彩刺激乱对白_看黄色黄大色黄片免费_人人超碰自拍cao_国产高清av在线_亚洲精品电影av_日韩美女尤物视频网站

文件夾這個概念大家都很熟悉，在各各操作系統(tǒng)中都有文件夾這個概念，而在VB.NET這門開發(fā)語言中如何更好更安全的操作文件夾，這就是今天我們要來演示的一個案例。希望從VB.NET文件夾操作這個案例中學到技巧。

創(chuàng)新互聯(lián)是一家專業(yè)從事成都網站制作、網站設計的網絡公司。作為專業(yè)網絡公司,創(chuàng)新互聯(lián)依托的技術實力、以及多年的網站運營經驗,為您提供專業(yè)的成都網站建設、成都全網營銷推廣及網站設計開發(fā)服務！

VB.NET文件夾操作代碼：

 
 
 

  
  
  
'文件夾復制  
  
  
  
Function CopyDir()Function CopyDir(ByVal sourcePath As String, ByVal targetPath As String) As Boolean  
  
  
  
Try  
  
  
  
'檢查目標目錄是否以目錄分割字符結束,不是則添加  
  
  
  
If Right(targetPath, 1) <> "" Then targetPath += ""  
  
  
  
'判斷目標目錄是否存在,不存在則新建  
  
  
  
If Not Directory.Exists(targetPath) Then Directory.CreateDirectory(targetPath)  
  
  
  
' 得到源目錄的文件列表，該里面是包含文件以及目錄路徑的一個數(shù)組  
  
  
  
Dim fileList As String() = Directory.GetFileSystemEntries(sourcePath)  
  
  
  
'遍歷所有的文件和目錄  
  
  
  
For Each filepath As String In fileList  
  
  
  
'目錄處理,遞歸  
  
  
  
If (Directory.Exists(filepath)) Then  
  
  
  
CopyDir(filepath, targetPath + Path.GetFileName(filepath))  
  
  
  
Else  
  
  
  
'復制文件  
  
  
  
File.Copy(filepath, targetPath + Path.GetFileName(filepath), True)  
  
  
  
End If  
  
  
  
Next  
  
  
  
Return True  
  
  
  
Catch ex As Exception  
  
  
  
Return False  
  
  
  
End Try  
  
  
  
End Function  
  
  
  
'文件夾刪除  
  
  
  
Function DelDir()Function DelDir(ByVal targetPath As String) As Boolean  
  
  
  
Try  
  
  
  
'檢查目標目錄是否以目錄分割字符結束,不是則添加  
  
  
  
If Right(targetPath, 1) <> "" Then targetPath += ""  
  
  
  
'得到源目錄的文件列表，該里面是包含文件以及目錄路徑的一個數(shù)組  
  
  
  
Dim fileList As String() = Directory.GetFileSystemEntries(targetPath)  
  
  
  
'遍歷所有的文件和目錄  
  
  
  
For Each filepath As String In fileList  
  
  
  
'目錄處理,遞歸  
  
  
  
If (Directory.Exists(filepath)) Then  
  
  
  
DelDir(targetPath + Path.GetFileName(filepath))  
  
  
  
Else  
  
  
  
'刪除文件  
  
  
  
File.Delete(targetPath + Path.GetFileName(filepath))  
  
  
  
End If  
  
  
  
Next  
  
  
  
'刪除文件夾  
  
  
  
System.IO.Directory.Delete(targetPath, True)  
  
  
  
Return True  
  
  
  
Catch ex As Exception  
  
  
  
Return False  
  
  
  
End Try  
  
  
  
End Function 
 
 
 

以上就是我為大家提高的關于VB.NET文件夾操作的一個案例，大家快試試吧！

網站名稱：教你更快速使用VB.NET文件夾操作
文章轉載：http://fisionsoft.com.cn/article/cdcdjhg.html