VB复制目录下所有*.txt文件

先从“工程”菜单中选择“引用…”，勾选Microsoft Script Runtime，确定

然后将下面程序写在一个子程序（过程）中，或者是函数中，然后调用就行了
Dim FSobj As FileSystemObject
Dim Curfolder As Folder
Dim DSTfolder As Folder
Dim DSTNAME As String
Dim AF As file
Dim EXTN As String
Set FSobj = New FileSystemObject
Set Curfolder = FSobj.GetFolder(FileSystem.CurDir)
DSTNAME = FileSystem.CurDir + "\123"
If Not FSobj.FolderExists(DSTNAME) Then
Set DSTfolder = FSobj.CreateFolder(DSTNAME)
Else
Set DSTfolder = FSobj.GetFolder(DSTNAME)
End If

For Each AF In Curfolder.Files
EXTN = UCase(FSobj.GetExtensionName(AF.Path))
If EXTN = "TXT" Or EXTN = "RAR" Then
AF.Copy FSobj.BuildPath(DSTfolder.Path, AF.Name)
End If
Next

Private Sub Command2_Click()
If Dir(App.Path & "\123", vbDirectory) = "" Then MkDir App.Path & "\123"
MyPath = App.