这篇文章将为大家详细讲解有关VB.NET中怎么操作文件夹，文章内容质量较高，因此小编分享给大家做个参考，希望大家阅读完这篇文章后对相关知识有一定的了解。

创新互联是一家专注于成都网站设计、成都做网站与策划设计,安居网站建设哪家好?创新互联做网站,专注于网站建设十年,网设计领域的专业建站公司;建站业务涵盖:安居等地区。安居做网站价格咨询:13518219792

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中怎么操作文件夹就分享到这里了，希望以上内容可以对大家有一定的帮助，可以学到更多知识。如果觉得文章不错，可以把它分享出去让更多的人看到。

当前名称：VB.NET中怎么操作文件夹
网页URL：http://csdahua.cn/article/jspsgi.html