msctls_progress32 to function

[Lucas]

How can I create msctls_progress32 to this function:

Code:

Copy      Help

function str'archivo ARRAY(str)&encontrados
;ARRAY(str) encontrados
;out filefind("notepad.exe" encontrados)
;int i
;for i 0 encontrados.len
,;out encontrados[i]

str comando
str temp.expandpath("$Temp$")
if(dir("$Temp$\resultados.txt"))
,del "$Temp$\resultados.txt"
ChDir "C:\"
comando.format("/c dir %s /b/s>%s\resultados.txt" archivo temp)
run "%COMSPEC%" comando "" "" 2
;texto
str texto.getfile("$Temp$\resultados.txt")
err
,1
,goto texto
;out texto
encontrados=texto
ret encontrados.len