ファイル名一覧からテキストファイル生成

1000種類のテキストファイルを用意したいです。
ファイルの中身はすべて一緒でかまいません。
ファイル名が違います。
ファイル名は、Noで連番とかではないです。
ファイル名一覧を指定すれば、一括作成できる
ソフトはないでしょうか？

No.1 ベストアンサー 回答者： papayuka 回答日時： 2005/06/11 14:29

OSはWindowsですか？

他にも方法はあると思いますが、、、
Excelのマクロとか。

Sub Test()
Dim fs, myPath As String
　myPath = "C:\" 'パスを指定
　Set fs = CreateObject("Scripting.FileSystemObject")
　For i = 1 To Range("A65536").End(xlUp).Row
　　　fs.CreateTextFile myPath & Range("A" & i) & ".txt"
　Next i
End Sub

この回答へのお礼

winです。マクロまで書いてくれて、
どうもありがとうございます。

お礼日時：2005/06/18 01:51