by Tucker Nance (2 Submissions)
Category: Coding Standards
Compatability: Visual Basic 3.0
Difficulty: Beginner
Date Added: Wed 3rd February 2021
Rating: (2 Votes)
Downloads a file from the internet
Assumes
You must load the Internet Transfer Control (msinet.ocx)
Dim File2() As Byte
File2() = Inet1.OpenURL("http://www.alleghany.k12.nc.us/chat/chatclie/chatclie.exe", icByteArray) ' Download file
Open "C:\windows\desktop\chatupdate.exe" For Binary Access Write As #1 ' Choose local path
Put #1, , File2()
Close #1