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

VB.NET中怎么操作文件夹

相关推荐