簡単にたくさんの空のファイルを作ることはできますか?

質問

ファイル形式はＺＩＰやＲＡＲやＭＰ３です。

ファイルの容量はなるべく小さいほうがいいです。

自分がやろうとしていることは複数のファイル名をまとめてコピーしクリップボードにのこす、もしくはメモ帳等に貼り付けた複数のファイル名を用いてファイルを作りたいのですが可能でしょうか?

例を挙げて言うと
1.zip
2.zip
3.zip
　・
　・
　・
1000.zip

などと書かれてあるファイル名のファイルをすぐに作りたいのです。

回答No.4

imogasi

エクセルかVBをお持ちなら下記はどうでしょう。
（１）test01を実行する（方法は下記）と、c:\My Documentsフォルダに、test1(例としての名）フォルダを作ります。手操作でも新しいフォルダは作れます。
（２）test2を実行します（方法は下記）。
　　・"フォルダ名＝"と効いてくるので、ファイル名を調　　　べるフォルダ名を入力してください。
　　・"拡張子＝"と聞いてくるので、拡張子を半角文字で
　　　いれてください。（例doc,txt)
・test1フォルダのtest3と言うファイルに、ファイル　　　名が記録されます。
.拡張子ごとに実行しないとなりません。
（プログラム）
Sub test01()
MkDir "c:\My Documents\test1"
End Sub
Sub test02()
Open "c:\My Documents\test1\test3.txt" For Output As #1
fordn = InputBox("フォルダ名＝")
kaku = InputBox("拡張子＝")
t = "c:\My Documents\" & fordn & "\*." & kaku
' MsgBox t
s = Dir(t)
Print #1, s
' MsgBox s
For i = 1 To 20
s = Dir()
If s = "" Then Exit For
Print #1, s
' MsgBox s
Next i
Close #1
End Sub
（上記を実行するには）
エクセルのワークシートで
・ALT+F11　　VBE画面へ
・ALT+I　　　挿入
・ALT+M　　　標準モジュール（Mｏｄｕｌｅ１が出来る）
上記をコピーして貼り付ける。
・test01実行するには、Sub test01()の次行にカーソルを置きF5
・test02実行するには、Sub test02()の次行にカーソルを置きF5
・test1,test3を自分の好みの名前にしたい時、どう変えれば良いかは、判ると思います。
・上記は少数例でテスト済み。