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

在程序中要做一个复制文件夹的功能，用递归写起来很方便。后来要某位仁兄实现一个类似的，貌似不是那么顺利，这里把复制文件夹的递归代码丢出来：递归的程序实在是很简洁很漂亮吧？后来又写了一个在文件夹中搜索文件的方法，也是递归的，那么在这里就一并丢出来：　　GetFileName是我自己写的一个把路径去掉只剩下文件名和扩展名的方法。　　这两段代码实在是太简单了，所以我觉得没有什么地方要解释了。