VB 에서 실 현 된 재 귀적 복사 파일 과 검색 파일 의 코드 공유

프로그램 에서 폴 더 를 복사 하 는 기능 을 하려 면 재 귀적 으로 쓰 는 것 이 편리 하 다.나중에 어떤 인형 에 게 비슷 한 것 을 실현 하 라 고 했 습 니 다.그리 순 조 롭 지 않 은 것 같 습 니 다.여기 서 복사 폴 더 의 재 귀 코드 를 잃 어 버 렸 습 니 다.

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

재 귀 절차 가 너무 깔끔 하고 예 쁘 죠?나중에 폴 더 에서 파일 을 검색 하 는 방법 도 재 귀 적 이 었 습 니 다.그러면 여기 서 함께 잃 어 버 렸 습 니 다.

''' <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 은 파일 이름과 확장자 만 남 은 경 로 를 제거 하 는 방법 입 니 다.
이 두 단락 의 코드 는 정말 너무 간단 해서 나 는 설명 할 곳 이 없다 고 생각한다.