質問: Dir() End With Loop MsgBox ("貼付完了") End Sub
回答: -- 投稿される際は、コードはマークダウンして見やすくした方が良いですね。 示されたコードはエクセルのvbaですね。 VBSに置き換える際に考慮すべきこととして、 A.ターゲットのアプリケーション(エクセル)を取得すること B.纏めるブックを先ずは開くこと になるかと。 こちら(VBScriptでExcelを操作する)が参考になるのではないでしょうか。 それから、vbsではdir()は使えないはずなので、FileSystemObjectを使うことになるかと思います。 それについてはこちら(VBS: ファイル一覧とフォルダ一覧の取得)を参考に。