Где ошибка в коде, предназначенном для скачивания файла?

24.04.2016, 15:14. Показов 649. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

вбс вообще никогда не занимался но сегодня пришлось , пишет что на 9 строке 21 символ но в упор не вижу что там не так

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
' Set your settings
   strFileURL = "http://www.opera-usb.com/download/operausb1217ru.zip"
   strHDLocation = "operausb1217ru.zip"
 
' Fetch the file
   Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
 
   objXMLHTTP.open "GET", strFileURL, false
   objXMLHTTP.send()If objXMLHTTP.Status = 200 Then
Set objADOStream = CreateObject("ADODB.Stream")
objADOStream.Open
objADOStream.Type = 1 'adTypeBinary
 
objADOStream.Write objXMLHTTP.ResponseBody
objADOStream.Position = 0    'Set the stream position to the start
 
Set objFSO = Createobject("Scripting.FileSystemObject")
If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
Set objFSO = Nothing
objADOStream.SaveToFile strHDLocation
objADOStream.Close
Set objADOStream = Nothing
End if
 
Set objXMLHTTP = Nothing

Добавлено через 11 минут
всё спасибо разобрася сам нужно было переход на строку сделать

Visual Basic
  objXMLHTTP.send()
   If objXMLHTTP.Status = 200 Then

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

24.04.2016, 15:14

Ответы с готовыми решениями:

Где ошибка в коде, предназначенном для поиска файлов?
set "f=temp" for /f "delims=" %%a in ('dir/a-d/b/s "D:\Test\*.txt"^|findstr /i "%f%"') do ( ren "%%a" *.log ) Не могу понять в чем...

Почему извлечённая ссылка на видео(для скачивания) в коде страницы Chrome - не всегда рабочая?
Обычно когда нужно скачать видео с YouTube или других популярных хостингов - достаточно воспользоваться сервисом SaveForm, но иногда это не...

Ошибка скачивания файла с Ucoz : 403 error
Вообщем нужно скачать файл с Ucoz сайта. Пробую скачать так : Dim WithEvents wc As New System.Net.WebClient wc.DownloadFileAsync(New...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

24.04.2016, 15:14

Помогаю со студенческими работами здесь

Скрипт для скачивания файла
Добрый вечер. Столкнулся с проблемой, нужна помощь в решении. Есть файл, есть сайт.Нужно что бы при открытии сайта, на компьютер...

RewriteRule для скачивания файла
Помогите составить правило для скачивания файл PDF PHP скрипт генерирует pdf файлы, при определенном GET запросе это pdf файл отдается...

Изменить для использования в Командной строке код для скачивания файла
Есть скрипт который качает файл с хоста в указанную папку $WebClient = New-Object System.Net.WebClient ...

Плагин для отображения размера файла для скачивания
Ищу плагин для скачивания файла с сайта, неоднократно видел такие на различных сайтах, идёт название файла или "Скачать" и после...

Консольная программа для скачивания файла
Скиньте пример консольной программы которая обновляет файл, например в файле на сайте mysite.ru/ver.php написано "1.0", а...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

Наверх