文件夹这个概念大家都很熟悉，在各各操作系统中都有文件夹这个概念，而在VB.NET这门开发语言中如何更好更安全的操作文件夹，这就是今天我们要来演示的一个案例。希望从VB.NET文件夹操作这个案例中学到技巧。

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)  
' 得到源目录的文件列表，该里面是包含文件以及目录路径的一个数组  
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 += ""  
'得到源目录的文件列表，该里面是包含文件以及目录路径的一个数组  
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文件夹操作的一个案例，大家快试试吧！

【编辑推荐】

1. 实例讲述VB.NET使用Log4Net
2. 三分钟学会VB.NET转换形态
3. VB.NET获取硬盘信息四大法宝
4. 讲述VB.NET调用Excel的好处
5. 简单例子概述VB.NET新窗体