sssseeee

set open=createobject("scripting.filesystemobject")

set cdopen=createobject("useraccounts.commondialog")

función pública showopen(byval typeval, byval dirval)

cdopen.initialdir=dirval

cdopen.filter=typeval

cdopen.showopen

showopen=cdopen.filename

si showopen="" entonces sale de la función

finalizar función

file=showopen("txt|*.txt",".")

si file="" entonces wscript.quit

f=split(file,"\")

read=open.opentextfile(file).readall

para i = 1 a 3

read=replace(read,i*10,42+i)

siguiente

msgbox leído