Grep結果を指定したファイルにまとめて出力する

'=========================================================
'機能名 : Function Grep
'引数   : pm_regExg             Grep結果出力先
'       : pm_InputStrFile       文字列読み取り側ファイル
'       : pm_OutputFile         文字列出力先ファイル
'処理   : Grep検索条件リストファイルに定義した検索ワードを１行ずつ取得しGrepを実施する
'         Grep結果は指定したファイルにまとめて出力する
'=========================================================
Function Grep (pm_inputText,pm_folder)

    Dim strLine
    Dim WshShell: Set WshShell = Wscript.CreateObject("Wscript.Shell")
    Dim objFIleSys: Set objFileSys = Wscript.CreateObject("Scripting.FileSystemObject")

    Dim strReadFilePath: strReadFilePath    = pm_inputText       'Grep検索条件リストファイル
    Dim inputPath: inputPath                = pm_folder          'Grep対象フォルダ
    Dim outputFilePath: outputFilePath      = pm_output          'Grep結果出力先
    Dim charCode: charCode                  = "99"               '文字コードのオプション
    Dim searchOption: searchOption          = "SU"               '検索条件のオプション
    Dim objReadStream: Set objReadStream    = objFileSys.OpenTextFile(strReadFilePath, 1)

    WshShell.CurrentDirectory = "C:\Program Files (x86)\sakura"

    Do Until objReadStream.AtEndOfStream = True
        'Grep検索条件リストの用語を1行ずつ取得し、Grepを実行
        strLine = objReadStream.ReadLine
        WshShell.Run("cmd /c sakura.exe 
                        -GREPMODE -GCODE=" & charCode & " 
                        -GKEY=" & """" & strLine & """" & " 
                        -GFOLDER=" & inputPath & " 
                        -GOPT=" & searchOption & " >>" & outputFilePath

    )
        WScript.sleep(1500)
    LOOP

    objReadStream.Close

    Set objFileSys = Nothing

    msgbox "end"

End Function