在程序中要做一個復(fù)制文件夾的功能，用遞歸寫起來很方便。后來要某位仁兄（自己知道就行了 - -）實現(xiàn)一個類似的，貌似不是那么順利，這里把復(fù)制文件夾的遞歸代碼丟出來：
|
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 |
遞歸的程序?qū)嵲谑呛芎啙嵑芷涟桑亢髞碛謱懥艘粋€在文件夾中搜索文件的方法，也是遞歸的，那么在這里就一并丟出來：
|
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.EmptyEnd Function |
GetFileName是我自己寫的一個把路徑去掉只剩下文件名和擴展名的方法。
這兩段代碼實在是太簡單了，所以我覺得沒有什么地方要解釋了（其實是準(zhǔn)備下班走人了）。
