【VB编程】怎么将某个文件夹里的(所有)*.TXT复制到某个文件夹里去！

答案：'----------第一种：---------------------------------------------------------------
Private Sub Command1_Click()
Dim Files As String, Output As String
    Files = Dir("C:\123\", vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)  '读取 c:\123\ 下所有文件
While Files <> ""
   Output = Output + "发现：【" + Files + "】" + vbCrLf
   If LCase(Right(Files, 4)) = ".exe" Then   '筛选exe文件
        Output = Output + "【" + Files + "】为指定类型文件" + vbCrLf
        FileCopy "C:\123\" + Files, "D:\Test\" + Files '复制文件
        'Kill "C:\123\" + Files                  '复制后删除源文件，就是移动
        Output = Output + "【" + Files + "】操作成功！" + vbCrLf
   Else
        Output = Output + "【" + Files + "】不是指定类型的文件，继续下一个文件..." + vbCrLf
   End If
   Output = Output + String(80, "-") + vbCrLf
Files = Dir
Wend
MsgBox Output
End Sub
'-----------第二种：---------------------------------------------------------------
Shell "cmd.exe /c copy F:\音乐\*.txt F:\文件\  ", 0
'--------------------------------------------------------------------------------------

上一个：VB编程9*9乘法表，并且要对齐，求高手们解答啊，我可以追加分数
下一个：简述VB可视化编程的一般步骤