如何使用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文件夹操作”有了一定的了解,如果想了解更多相关知识,欢迎关注亿速云行业资讯频道,感谢各位的阅读!

原创文章,作者:kepupublish,如若转载,请注明出处:https://blog.ytso.com/208704.html

(0)
上一篇 2021年12月7日
下一篇 2021年12月7日

相关推荐

发表回复

登录后才能评论