如何使用VB.NET文件夾操作

小編給大家分享一下如何使用VB.NET文件夾操作，希望大家閱讀完這篇文章之后都有所收獲，下面讓我們一起去探討吧！

VB.NET文件夾操作代碼：

'文件夾復(fù)制  Function CopyDir()Function CopyDir(ByVal sourcePath As String, ByVal targetPath As String) As Boolean  Try  
'檢查目標(biāo)目錄是否以目錄分割字符結(jié)束,不是則添加  If Right(targetPath, 1) <> "" Then targetPath += ""  
'判斷目標(biāo)目錄是否存在,不存在則新建  If Not Directory.Exists(targetPath) Then Directory.CreateDirectory(targetPath)  
' 得到源目錄的文件列表，該里面是包含文件以及目錄路徑的一個(gè)數(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  
'復(fù)制文件  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  
'檢查目標(biāo)目錄是否以目錄分割字符結(jié)束,不是則添加  If Right(targetPath, 1) <> "" Then targetPath += ""  
'得到源目錄的文件列表，該里面是包含文件以及目錄路徑的一個(gè)數(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

看完了這篇文章，相信你對(duì)“如何使用VB.NET文件夾操作”有了一定的了解，如果想了解更多相關(guān)知識(shí)，歡迎關(guān)注億速云行業(yè)資訊頻道，感謝各位的閱讀！