Advertisement
3_2004-2005 Coding Standards #139004

Simple internet file download

Downloads a file from the internet

AI

ИИ-обзор: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Исходный код
original-source
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
Оригинальные комментарии (3)
Восстановлено из Wayback Machine