VB实现的递归复制文件和搜索文件的代码分享

在程序中要做一个复制文件夹的功能，用递归写起来很方便。后来要某位仁兄（自己知道就行了--）实现一个类似的，貌似不是那么顺利，这里把复制文件夹的递归代码丢出来：

PublicSharedSubCopyDirectory(sourceAsString,destinationAsString)
IfDirectory.Exists(destination)=FalseThen
Try
Directory.CreateDirectory(destination)
CatchexAsException
Logger.LogError(Logger.SourceType.Application,"Copybuildprocess:Cannotcreatefolder:"&destination)
Return
EndTry
EndIf

ForEachpathsAsStringInDirectory.GetDirectories(source)
CopyDirectory(paths,Path.Combine(destination,paths.Substring(paths.LastIndexOfAny({""c,"/"c})+1)))
Next

ForEachfilesAsStringInDirectory.GetFiles(source)
Try
File.Copy(files,Path.Combine(destination,files.Substring(files.LastIndexOfAny({""c,"/"c})+1)),True)
_copiedFiles+=1
CatchexAsException
Logger.LogError(Logger.SourceType.Application,"Copybuildprocess:Cannotcopyfile:"&files)
EndTry
Next

EndSub

递归的程序实在是很简洁很漂亮吧？后来又写了一个在文件夹中搜索文件的方法，也是递归的，那么在这里就一并丢出来：

"""<summary>
"""Searchthespecifiedfileinthefolderanditssubfoldersandreturnitsfullpathname.Emptystringifnotfound.
"""</summary>
"""<paramname="fileName">Thefiletosearch(nofolder).</param>
"""<remarks></remarks>
PublicSharedFunctionSearchFile(folderAsString,fileNameAsString)AsString
IfDirectory.Exists(folder)=FalseThenReturnString.Empty

fileName=fileName.Trim.ToLower

IffileName.IndexOfAny({""c,"/"c})>=0Then
fileName=GetFileName(fileName)
EndIf

Dimlist()AsString=Directory.GetFiles(folder)

ForiAsInteger=0Tolist.GetUpperBound(0)
IfGetFileName(list(i)).Trim.ToLower=fileNameThenReturnlist(i)
Next

Dimdirectories()AsString=Directory.GetDirectories(folder)

ForiAsInteger=0Todirectories.GetUpperBound(0)
Dimreturn_fileAsString=SearchFile(directories(i),fileName)

Ifreturn_file.Length>0ThenReturnreturn_file
Next

ReturnString.Empty
EndFunction

　　GetFileName是我自己写的一个把路径去掉只剩下文件名和扩展名的方法。

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