个人中心
gpt4 book ai didi

VB.NET实现的递归复制文件和搜索文件的代码分享

转载 作者：qq735679552 更新时间：2022-09-29 22:32:09 30 4
gpt4 key购买 nike

CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章VB.NET实现的递归复制文件和搜索文件的代码分享由作者收集整理，如果你对这篇文章有兴趣，记得点赞哟.

在程序中要做一个复制文件夹的功能，用递归写起来很方便。后来要某位仁兄（自己知道就行了 - -）实现一个类似的，貌似不是那么顺利，这里把复制文件夹的递归代码丢出来:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Public Shared Sub CopyDirectory(source As String , destination As String )
   If Directory.Exists(destination) = False Then
     Try
       Directory.CreateDirectory(destination)
     Catch ex As Exception
       Logger.LogError(Logger.SourceType.Application, "Copy build process: Cannot create folder: " & destination)
       Return
     End Try
   End If
  
   For Each paths As String In Directory.GetDirectories(source)
     CopyDirectory(paths, Path.Combine(destination, paths.Substring(paths.LastIndexOfAny({ "" c, "/" c}) + 1)))
   Next
  
   For Each files As String In Directory.GetFiles(source)
     Try
       File.Copy(files, Path.Combine(destination, files.Substring(files.LastIndexOfAny({ "" c, "/" c}) + 1)), True )
       _copiedFiles += 1
     Catch ex As Exception
       Logger.LogError(Logger.SourceType.Application, "Copy build process: Cannot copy file: " & files)
     End Try
   Next
  
End Sub

递归的程序实在是很简洁很漂亮吧？后来又写了一个在文件夹中搜索文件的方法，也是递归的，那么在这里就一并丢出来:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
''' <summary>
''' Search the specified file in the folder and its sub folders and return its full path name. Empty string if not found.
''' </summary>
''' <param name="fileName">The file to search (no folder).</param>
''' <remarks></remarks>
Public Shared Function SearchFile(folder As String , fileName As String ) As String
   If Directory.Exists(folder) = False Then Return String .Empty
  
   fileName = fileName.Trim.ToLower
  
   If fileName.IndexOfAny({ "" c, "/" c}) >= 0 Then
     fileName = GetFileName(fileName)
   End If
  
   Dim list() As String = Directory.GetFiles(folder)
  
   For i As Integer = 0 To list.GetUpperBound(0)
     If GetFileName(list(i)).Trim.ToLower = fileName Then Return list(i)
   Next
  
   Dim directories() As String = Directory.GetDirectories(folder)
  
   For i As Integer = 0 To directories.GetUpperBound(0)
     Dim return_file As String = SearchFile(directories(i), fileName)
  
     If return_file.Length > 0 Then Return return_file
   Next
  
   Return String .Empty
End Function

　　GetFileName是我自己写的一个把路径去掉只剩下文件名和扩展名的方法.

　　这两段代码实在是太简单了，所以我觉得没有什么地方要解释了（其实是准备下班走人了）.

最后此篇关于VB.NET实现的递归复制文件和搜索文件的代码分享的文章就讲到这里了,如果你想了解更多关于VB.NET实现的递归复制文件和搜索文件的代码分享的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。

30 4 0
文章推荐： 影响网站服务器租用稳定性的因素有哪些
文章推荐： java的接口解耦方式
文章推荐： VB.net读取Word文档属性的方法
文章推荐： Java类加载的过程详解
qq735679552
个人简介

我是一名优秀的程序员,十分优秀！

滴滴打车优惠券免费领取
滴滴打车优惠券
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com