0

私は、ResGen.exe でリソース ファイルを生成する VBScript に取り組んでおり、ResGen のエラー メッセージを収集してこれをファイルに書き込む必要があり、ファイル書き込みの一部を制御しました (ここに示すスクリプトには存在しませんが、私は知っています)。どうやってするの)

'' Folder that contains the files 
folderpath = "C:\Users\Administrator\Desktop\Author\author\"
'Destination folder from generated files
destfolder = "C:\Users\Administrator\Desktop\Author\author\"
'Folder contains the text file with list of files names
listfolder = "C:\Users\Administrator\Desktop\Author\"
listfile = listfolder + "list.txt"
logfile = listfolder + "log.txt"

resgen = "ResGen.exe /compile"

Set objShell = CreateObject("WScript.Shell")

Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Wscript.echo listfile
Set objFile = objFSO.OpenTextFile(listfile, ForReading)
Wscript.echo "Reading file"
Do While objFile.AtEndOfStream = False
    strLine = objFile.ReadLine
    cmdexec = Chr(34) + folderpath + strLine + "resx" + Chr(34) + " " + Chr(34) + destfolder + strLine + "resources" + Chr(34)
    execommand = resgen + " " + cmdexec 
    objShell.Run execommand,1,TRUE   
Loop
objFSO.Close

objShell.Run 行の後に、このコマンドの応答を保存するために何を入力する必要がありますか? コマンドの後に " >> "C:\log.txt" " を追加しようとしましたが、これではリソース ファイルは生成されず、応答を txt ファイルに保存するだけです。

私が正しく説明したことを願っています。

前もって感謝します!

4

1 に答える 1