マクロを使用してCSVファイルの結合を行いたい

質問

• 過去の質問の中から、素晴らしい結合のマクロを見つけましたが、パソコンをwindows7にエクセルをエクセル2010に変更した後、マクロが使えなくなりました。どなたか修正して頂けないでしょうか？
• 列の項目は定形で、10～200行のデータが書かれたCSVファイルが1つのフォルダに多数あります。新しいファイルに、NO.1のファイルのデータの続きにNO.2、NO.3・・・と続けてデータが下の行に連続して並ぶようにマクロで結合させたいと思っていますので、宜しくお願いします。
• Sub Test1() Dim files As FileSearch, FilesCnt As Integer, i As Integer Dim cBook As Workbook, pBook As Workbook 　FilesCnt = mySearch(files, ThisWorkbook.Path) 　If FilesCnt = 0 Then Exit Sub 　Set pBook = Workbooks.Add(xlWBATWorksheet) 　　For i = 1 To FilesCnt 　　　Workbooks.Open files.FoundFiles(i) 　　　Set cBook = ActiveWorkbook 　　　cBook.ActiveSheet.UsedRange.Copy 　　　With pBook.ActiveSheet 　　　　If i > 1 Then 　　　　　.Cells(.Range("A65536").End(xlUp).Row + 1, 1). _ 　　　　　 PasteSpecial (xlPasteAll) 　　　　Else 　　　　　.Cells(.Range("A65536").End(xlUp).Row, 1). _ 　　　　　 PasteSpecial (xlPasteAll) 　　　　End If 　　　End With 　　　Application.CutCopyMode = False 　　　cBook.Close 　　Next i 　Set cBook = Nothing: Set pBook = Nothing End Sub '******************************************************************** Function mySearch(files As FileSearch, myDir As String) As Integer 　mySearch = 0 　Set files = Application.FileSearch 　With files 　　　.NewSearch 　　　.LookIn = myDir 　　　.SearchSubFolders = True 　　　.Filename = "*.csv" 　　　If .Execute() > 0 Then mySearch = .FoundFiles.Count 　End With End Function

回答No.2

f272

フォルダ内のテキストファイルを全て結合するだけなのに何故そんな大層なことをするの？
そのフォルダ内に
copy *.csv output.csv
という内容のbatファイルを作って実行するだけでいいんじゃないの？