VBSでのファイル読込、出力操作について
いつもありがとうございます。
掲題の件について、ご教授頂けますでしょうか。
下記のように『start.vbs』を実行すると『a.txt』の行に記載されている実行ファイル名を読み込み
『test.vbs』にファイル名分のコマンドを書き込みしたいです。
例）
-----------------------------
start.vbs （作成途中）
-----------------------------
Set objWShell = CreateObject("wscript.shell")
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objFile = objFso.OpenTextFile("c:\a.txt", 1, False)
' 出力先ファイル
Set objVBSFile = objFSO.CreateTextFile(c:\test.vbs, True)
If Err.Number > 0 Then
WScript.Echo "Open Error"
Else
Do Until objFile.AtEndOfStream
objVBSFile.WriteLine(objFile.ReadLine)
Loop
End If
-----------------------------
a.txt
-----------------------------
adobe.exe
photoshop.exe
****.exe
・
・
・
------------------------------
start.vbs
------------------------------
objWShell.Run "cmd.exe c:\adobe.exe ", 0, True
objWShell.Run "cmd.exe c:\photoshop.exe ", 0, True
objWShell.Run "cmd.exe c:\****.exe ", 0, True
・
・
・
vbsをサイトを参考にして作ってはいるものの、start.vbsを実行すると
a.txtのファイル名をvbsに書き込むのが限界です。
少しずつ勉強していくのですが、本件少し早めに作りたいという背景があり
ご教授頂けませんでしょうか。
また、わかりにくい説明となっておりますが
どうぞ宜しくお願い致します。
お礼
ありがとうございます。