189 8069 5689
这篇文章将为大家详细讲解有关VB.NET中怎么操作文件夹，文章内容质量较高，因此小编分享给大家做个参考，希望大家阅读完这篇文章后对相关知识有一定的了解。
创新互联是一家专注于成都网站设计、成都做网站与策划设计,安居网站建设哪家好?创新互联做网站,专注于网站建设十年,网设计领域的专业建站公司;建站业务涵盖:安居等地区。安居做网站价格咨询:13518219792
VB.NET文件夹操作之文件夹复制
Function CopyDir()Function CopyDir
(ByVal sourcePath As String, ByVal
targetPath As String) As BooleanTry
'检查目标目录是否以目录分割字符结束,
不是则添加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 BooleanTry
'检查目标目录是否以目录分割字符结束,
不是则添加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中怎么操作文件夹就分享到这里了，希望以上内容可以对大家有一定的帮助，可以学到更多知识。如果觉得文章不错，可以把它分享出去让更多的人看到。