Descarcare fisierer de pe Iinternet

Declare DoFileDownload In  shdocvw.Dll STRING lpszFile

Local lcFile As String

*lcFile = "expertsoft.eu/versiuni.txt"

lcFile = "update.expert-net.ro/IcasUpdate/versiuni.txt"

DoFileDownload(StrConv(lcFile, 12))

Sau

oInet = Create("InetCtls.Inet")
oInet.RemotePort = "8080"
oInet.RequestTimeOut = 1000
* oInet.Proxy = "192.168.6.3"
cUrl = "http://update.expert-net.ro/IcasUpdate/versiuni.txt"
oDatos = oInet.OpenURL(cUrl, 1)
StrToFile(oDatos, 'sterge.txt')
Modify File Sterge.txt