多TXT文件COPY一个文件
比方我在C:\下有   若干个目录，
都是以年月日做文件名的。
各目录下都有若干个.TXT文件。

现在想用COPY的命令在   D:\   产生一个ALL.TXT文件。
是把C:\下的所有TXT文件都合并在一起。

有人会吗？在线等。谢谢。


------解决方案--------------------
'用VBSCRIPT吧，把下面代碼COPY到擴展名為VBA的文本中，再雙擊它，注意下面的文件路徑，自修改一下吧。
Dim SaveFile,FileCount,ps,ff
FileCount = 0
Set fso = CreateObject( "Scripting.FileSystemObject ")
ps= "C:\TEMP\txt.txt " '存放的目的文件
Set SaveFile = fso.OpenTextFile(ps, 8, True)
ff= "F:\新資料夾\桌面 " '來源文件夾
T fso.GetFolder(ff)
msgbox "Totle Text File: " & FileCount

Sub T(Folder)
Dim fl
Dim f
For Each f In Folder.Files
If LCase(Right(f.ShortName, 4)) = ".txt " Then
Set fs = fso.OpenTextFile(f.Path)
SaveFile.Write (fs.ReadAll)
fs.Close
FileCount = FileCount +1
End If

Next

For Each fl In Folder.SubFolders
T fl
Next
End Sub