エクセルのマクロでDOSのコマンドを記述するには？

質問

デスクトップにa.prnとb.prnというファイルがあります。a.prnとb.prnを結合しa.prnを作成したのちb.prnを削除する作業をエクセルのマクロに記入したいのですがどうしらいいでしょうか？おしえてください。

回答No.4

gori8063

#1です。先を越されたかな（ｗ

単純な系で書いてます。

Sub Merge_Files()

Dim dt
Open "c:\file1.prn" For Input As #1
Open "c:\Output_File.prn" For Output As #2

Do Until EOF(1) = True

Line Input #1, dt
Print #2, dt

Loop

Close #1

Open "c:\file2.prn" For Input As #1
Do Until EOF(1) = True

Line Input #1, dt
Print #2, dt

Loop

Close #1
Close #2

FileCopy "c:\Output_File.prn", "c:\file1.prn"
Kill "c:\Output_File.prn"

End Sub

お礼

ありがとうございます。勉強になりました。