VB实现的递归复制文件和搜索文件的代码分享
<p>在程序中要做一个复制文件夹的功能，用递归写起来很方便。后来要某位仁兄（自己知道就行了 - -）实现一个类似的，貌似不是那么顺利，这里把复制文件夹的递归代码丢出来：</p><div class="jb51code">
<pre class="brush: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</pre>
</div>
<p>递归的程序实在是很简洁很漂亮吧？后来又写了一个在文件夹中搜索文件的方法，也是递归的，那么在这里就一并丢出来：</p>
<div class="jb51code">
<pre class="brush:vb;">
''' <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</pre>
</div>
<p> GetFileName是我自己写的一个把路径去掉只剩下文件名和扩展名的方法。</p>
<p> 这两段代码实在是太简单了，所以我觉得没有什么地方要解释了（其实是准备下班走人了）。</p>
<div class="art_xg">
<b>您可能感兴趣的文章:</b><ul><li>VB.NET获取文件默认图标的方法</li><li>VB实现按行读取文本文件的方法</li><li>VB打开与保存txt文件的方法</li><li>VB简单实现防止文件被改写</li><li>VB.NET拷贝整个目录下所有子目录及文件的实例代码</li><li>VB获取文件大小的方法</li></ul>
</div>
</div>
<!--endmain-->
頁:
[1]