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是我自己写的一个把路径去掉只剩下文件名和扩展名的方法。
这两段代码实在是太简单了，所以我觉得没有什么地方要解释了（其实是准备下班走人了）。