Надежный хостинг с очень длительным хранением файлов - VB
Формулировка задачи:
недавно я столкнулся с такой проблемой..
хотел разместить код формы в одном сообщении здесь
не вышло, из за ограничения по объёму информации.. менее 21 килобайт для сообщения
не получилось продемонстрировать такой эфект..
что длл-ку можно просто скопировать вместе с текстом...
в связи с этим, я интересуюсь, где есть надежный хостинг
в котором файлы бы хранились вечно, и скачать их можно из любого места
к примеру запустилась программа, качнула длл-ку, и продолжила работу
как ни в чем не бывало
А пока-что я буду использовать этот сайт...
ну это временно
и вот еще вопрос, можно ли как-то узнать
- Имя файла перед закачкой
- Содержимое ZIP-файла перед закачкой
Решение задачи: «Надежный хостинг с очень длительным хранением файлов»
textual
Листинг программы
Option Explicit Private Sub Form_Load() Dim objHTTP As XMLHTTP Dim fNum As Integer Dim Resp As String Dim filename As String Dim index As Long Set objHTTP = New XMLHTTP Call objHTTP.open("GET", "http://www.cyberforum.ru/blog_attachment.php?attachmentid=2472&d=1402900408", False) objHTTP.send Resp = objHTTP.getResponseHeader("Content-disposition") index = InStr(1, Resp, "filename=") + 10 filename = Mid$(Resp, index, Len(Resp) - index) ' Сохраняем файл на диск fNum = FreeFile Open "C:\" & filename For Binary As fNum Put fNum, , objHTTP.responseBody Close fNum End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д