(VBS)テキストに任意の文字を書き込む

Dim text : text = "aaaa"                  '//文字
Dim pass : pass = "C:\xxxx\sample.txt"    '//パス

Call AddTextWrite(text,pass)

'=========================================================
'機能名 : Sub AddTextWrite
'引数   : pm_text    テキスト
'       : pm_pass    対象パス
'処理   : テキストに任意の文字を書き込む
'=========================================================
Sub AddTextWrite ( pm_text , pm_pass )

    Dim objShell
    Set objShell = CreateObject("WScript.Shell")
    objShell.Run "cmd /c echo " & pm_text & ">> "& pm_pass ,1,false

    objShell.Run pm_pass

End Sub

結果