怎么将程序file文件夹下的某些指定文件拷贝到指定的文件夹

我编写了一个小程序，程序下有个file文件夹，里面有很多文件，程序运行时我会根据条件选择出一部分文件，但是程序只能选择出文件名，我希望能够将我选择出的文件名对应的文件拷贝出来，拷贝的目标文件夹由我通过浏览文件夹指定，初步想通过Commanddialog来实现，我该怎么写代码？我是新手，望大家不吝赐教！ --------------------编程问答-------------------- commanddialog能够选出来你要的文件路径和文件名
然后用filesystemobject来执行copy。具体的你看看 --------------------编程问答-------------------- 拷贝文件除了使用FSO对象还可以使用API函数CopyFile

Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

--------------------编程问答--------------------

shell "md 目录名2",vbHide

shell "copy 目录名1\*.txt 目录名2",vbHide

补充：VB ,  基础类