「テキストファイルを結合してＣＳＶにする方法」について質問です。

20pt

まず、どのような環境化で実現したいのか、

それを明記していただけないと

目的の回答は得られないように思います。

また、MySQLに登録するまで全自動でやらせたいのか、

（毎日のバッチ処理等でやらせたいのか）

CSVにする箇所、MySQLへの登録箇所等で人手を介しても良いのか

によって、実装方法も変わると思います。

それと、「txtの中身」とありますが、これは1行限定なのでしょうか？

複数行考えられるなら、1カラム目（ファイル名）はどうするのか、

その辺も限定される方がいいかと思います。

仮にWindows環境として、人手を介していいなら、

私ならExeclVBAでCSV出力マクロ作成することで、

実装します。

URLダミー

http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110.html

20pt

windowsの場合。

1.一つのフォルダにテキストファイル100個を入れた状態。

2.テキストエディタを開いて「copy *.txt zenbu.txt」と記入して保存。

3.ファイル名は任意でいいので、拡張子を.batにする。

4.できたファイルをダブルクリック。

5.zenbu.txtというフォルダが新たにできる。

6.開くとそのフォルダ内のテキストが全部入ってる。

もし改行が入ってなくて長いデータになってしまったらこちらを参考に

http://www.mag2qa.com/qa464709.html

60pt

こんなのでどうでしょうか？

Option Explicit
Dim strPath, objShell, objFolder, objItem
Dim objFSO, objSTM, strName, strText
strPath = "C:\TEMP"

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(strPath)
If Not objFolder Is Nothing Then
    For Each objItem in objFolder.Items()
		strName = objItem.Name
		If Not objItem.IsFolder And LCase(Right(strName, 4)) = ".txt" Then
            Set objFSO = CreateObject("Scripting.FileSystemObject")
            Set objSTM = objFSO.OpenTextFile(strPath & "\" & objItem.Name, 1)
			strText = objSTM.ReadAll
			strText = Replace(strText, vbCr, "")
			strText = Replace(strText, vbLf, "")
			WScript.Echo(strName & " " & strText)
			Call objSTM.Close()
			Set objSTM = Nothing
			Set objFSO = Nothing
		End If
    Next
End If

Set objFolder = Nothing
Set objShell = Nothing