| Как скачать файл? |
|
Как скачать файл? Запросто! Dim wc As New Net.WebClient 'Создаём WebClient 'Создаём поток и BinaryWriter для записи данных в файл Dim fs As New IO.FileStream(Server.MapPath(filename), IO.FileMode.Create) Dim bw As New IO.BinaryWriter(fs) Dim b() As Byte 'Копируем файл в байтовый массив b = wc.DownloadData(URL) 'Пишем байтовый массив в FileStream bw.Write(b) 'Закрываем объекты bw.Close() fs.Close()
Источник: http://www.vbnet.ru/ |