手机
当前位置:查字典教程网 >编程开发 >vb.net >VB实现的递归复制文件和搜索文件的代码分享
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是我自己写的一个把路径去掉只剩下文件名和扩展名的方法。

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

【VB实现的递归复制文件和搜索文件的代码分享】相关文章:

什么是水晶报表与水晶报表功能分析

VB.NET中调用MSI卸载软件的2个方法

iOS设备用itools刷机教程

iphone ios8.3苹果应用商店下载不用输入密码怎么设置方法图

vb.net验证密码是否复杂的方法

iPhone6清除Safari历史记录方法

yy字幕滚动器怎么用

iphone越狱后直接节省内存2GB方法

VB.net读取Word文档属性的方法

苹果提交新专利申请:用iPhone解锁车门

精品推荐
分类导航