编程人员利用VB.NET进行实际编程，可以轻松简便的完成各种功能。比如今天为大家介绍的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
VB.NET文件夹操作之复制文件
- File.Copy(filepath,
targetPath
+ Path.GetFileName
(filepath), True)- End If
- Next
- Return True
- Catch ex As Exception
- Return False
- End Try
- End Function
VB.NET文件夹操作之文件夹删除
- 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.GetFile
Name(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文件夹操作的相关应用方法就为大家介绍到这里。
【编辑推荐】
