[решено] Hta + vbs + js проблема с апдейтом innerHTML

Никак не могу решить задачу апдейта или стирания предыдущего элемента что пишет скрипт в <p> или <body>
Прогресс бары не удалось прикрутить . Решил написать текстом, сколько скачалось мегабайт.
в hta

Код:



<p>Прогресс: <span id = "ProcessList"></span></p>





    strHTML = ""



    strComputer="."

    ProcWatch="wget.exe"

        

        Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

        Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process Where Name ='" & ProcWatch & "'")

        Do Until colProcesses.Count = 0

        

        Set colProcesses = objWMIService.ExecQuery _

        ("Select * from Win32_Process Where Name ='" & ProcWatch & "'")       

       

        Set objFolder = fso.GetFolder(strPath) 

                 

        strHTML = strHTML & "<img src=""http://mysite.ru/img/1.gif"" /> Скачано " & Round((objFolder.Size/1048576),2) & " мегабайт из 260 <br />"                  

        ProcessList.InnerHTML = strHTML

        Sleep(3)          

      

        Loop

каждые 3 секунды чекает размер папки куда скачиваются файлы, и в <p> вписывается span с текстом многократно, в результате вылазия за пределы окна .hta
Чтобы удалить предыдущий span нужен js но нет eventa когда бы можно было его запустить

визуально это выглядит так

а надо в 1 сообщении обновлять цифры. Просто это последнее что осталось сделать, а то оч некрасиво смотрится.