Search Tools Links Login

Simple internet file download


Downloads a file from the internet

Original Author: Tucker Nance

Assumptions

You must load the Internet Transfer Control (msinet.ocx)

Code

Dim File2() As Byte
File2() = Inet1.OpenURL("http://www.alleghany.k12.nc.us/chat/chatclie/chatclie.exe", icByteArray) ' Download file Open "C:windowsdesktopchatupdate.exe" For Binary Access Write As #1 ' Choose local path
Put #1, , File2()
Close #1

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 65 times

Categories

Visual Basic 6

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.