VBS ファイル一括ドラッグアンドドロップで列の削除と編集を行いたい

Question

前提・実現したいこと

普段、エクセル、少しのVBAで作業を行っているものです。
体系立てて学習したことはなく、すべて手探りで人のソースを呼んで学習しています。

今回、
・エクセル処理の限界を超えていること。
・なぜかアクセス取込にもエラーがよく出るデータであり、データ元は別の人から受け取るため
データ元をきれいにすることが難しいこと
から、
数百万行あるCSVを処理する方法を探し以下のようなものを用意してみました。
何分、不勉強なため初歩的な質問でもうし

#####直したい点
・複数ファイルを一括でドロップできるようにしたい
・生成するファイル名が変なので.csv
・生成するファイルを1つのフォルダにまとめたい

該当のソースコード

Set fso = CreateObject("Scripting.FileSystemObject")
Set InputFile = fso.OpenTextFile(WScript.Arguments(0), 1, False)
Set OutputFile = fso.CreateTextFile(WScript.Arguments(0) & "_整形済.csv")

Do Until InputFile.AtEndOfStream
aryStrings = Split(InputFile.ReadLine,",")
OutputFile.WriteLine (aryStrings(2) & ",1")
Loop

InputFile.Close

Answer 1

・複数ファイルを一括でドロップできるようにしたい

複数ファイルをドロップすると、例えば3つなら、それぞれのファイル名がWScript.Arguments(0)、WScript.Arguments(1)、WScript.Arguments(2)で取得できます。
ファイルの数は、WScript.Arguments.Countで取得できます。この場合は3です。

・生成するファイル名が変なので.csv

これは意味が分かりません。

・生成するファイルを1つのフォルダにまとめたい

fso.CreateTextFile()で指定するファイル名には、フォルダ名の付加が可能です。
fso.CreateTextFile("D:\output\" & WScript.Arguments(I) & "_整形済.csv")のようにします。

Comments

[saariselka]

アドバイスありがとうございます！
書きこみが途中でおかしくなっていました。いただいたお返事を参考に更にいじってみたいと思います！
ありがとうございます。