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
돌아가는 절차가 너무 깔끔하고 예쁘죠?나중에 폴더에서 파일을 검색하는 방법도 귀속적이라고 썼는데 여기서 함께 잃어버렸다.
'''
''' Search the specified file in the folder and its sub folders and return its full path name. Empty string if not found.
'''
''' The file to search (no folder).
'''
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은 파일 이름과 확장자만 남는 경로를 제거하는 방법입니다.
이 두 단락의 코드는 정말 너무 간단해서 나는 설명할 곳이 없다고 생각한다.
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
다양한 언어의 JSONJSON은 Javascript 표기법을 사용하여 데이터 구조를 레이아웃하는 데이터 형식입니다. 그러나 Javascript가 코드에서 이러한 구조를 나타낼 수 있는 유일한 언어는 아닙니다. 저는 일반적으로 '객체'{}...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.