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

发布时间：2020-12-14 23:55:38 所属栏目：C语言来源：网络整理

导读：在程序中要做一个复制文件夹的功能，用递归写起来很方便。后来要某位仁兄（自己知道就行了 - -）实现一个类似的，貌似不是那么顺利，这里把复制文件夹的递归代码丢出来： Public Shared Sub CopyDirectory(source As String,destination As String) If Direc

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

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,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

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

''' <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是我自己写的一个把路径去掉只剩下文件名和扩展名的方法。

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!