С Новым годом! Форум программистов, компьютерный форум, киберфорум
VBScript/JScript/WSH/WMI
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.61/18: Рейтинг темы: голосов - 18, средняя оценка - 4.61
7 / 7 / 2
Регистрация: 24.02.2013
Сообщений: 90

Файл скачивается не полностью с FTP

03.11.2013, 23:56. Показов 3411. Ответов 11
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Есть скрипт, который скачивает файл с фтп сервера в бинарном режиме, но файл почему-то не полностью скачивается(
что делать?
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
03.11.2013, 23:56
Ответы с готовыми решениями:

FTP полностью не работает!!!
Всем доброго времени суток!!! Ребят ОГРОМНАЯ прозьба разобраться в чём дело. Захотели посмотреть фильмы на сетке,но не тут-то было!!! ...

Апдейт программы, не всегда скачивается файл или скачивается не полностью. Посоветуйте решение...
Здравствуйте! Апдейтю программу, качаются файлы. Но бывает, что один из файлов (или несколько) просто не скачиваются, а создаётся в папке...

Не скачивается файл полностью
private void button2_Click(object sender, EventArgs e) { ...

11
Эксперт WindowsАвтор FAQ
 Аватар для Dragokas
18030 / 7733 / 892
Регистрация: 25.12.2011
Сообщений: 11,502
Записей в блоге: 16
04.11.2013, 02:30
Цитата Сообщение от zzzzza Посмотреть сообщение
что делать?
Заюзать WGET/CURL и докачивать: Ключи запуска программ, вспомогательные утилиты (Windows Resource Kit, Support Tools)

Добавлено через 27 секунд
Цитата Сообщение от zzzzza Посмотреть сообщение
Есть скрипт
а можно взглянуть?
0
7 / 7 / 2
Регистрация: 24.02.2013
Сообщений: 90
04.11.2013, 21:00  [ТС]
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
set fso = CreateObject("Scripting.FileSystemObject") 
Set WSHshell = WScript.CreateObject("WScript.Shell")
Set sDir = WSHshell.Environment("Process") 
Set cScript = fso.CreateTextFile ("get.txt")
cScript.WriteLine "Open **"
cScript.WriteLine "**"
cScript.WriteLine "**" 
cScript.WriteLine "binary"
cScript.WriteLine "GET map.png"
cScript.WriteLine "Bye"
cScript.Close
WSHshell.Run sDir("windir") & "\system32" & "\FTP.ExE -s:" & "get.txt", 0
Добавлено через 1 минуту
Dragokas, В VBS не разбираюсь, по-этому прошу помощи) Код скопировал и изменил под себя.
0
Модератор
Эксперт JS
 Аватар для Eva Rosalene
5241 / 2115 / 416
Регистрация: 06.01.2013
Сообщений: 4,846
04.11.2013, 21:23
12 строка правильнее так:
Visual Basic
12
WSHshell.Run sDir.Item("windir") & "\system32" & "\FTP.ExE -s:" & "get.txt", 0
1
Эксперт WindowsАвтор FAQ
 Аватар для Dragokas
18030 / 7733 / 892
Регистрация: 25.12.2011
Сообщений: 11,502
Записей в блоге: 16
04.11.2013, 22:03
zzzzza, я и не предлагаю VBS. WGET - консольная утилита.
1
7 / 7 / 2
Регистрация: 24.02.2013
Сообщений: 90
05.11.2013, 21:53  [ТС]
FraidZZ, Спасибо.
Dragokas, Спасибо, попробую, если будут вопросы, напишу.

Добавлено через 21 час 43 минуты
Dragokas, если я правильно понял, то писать нужно вот так:
wget 'ftp сервер' 'логин' 'пароль'
А что дальше нужно писать, чтобы скачать файл?)
0
Эксперт WindowsАвтор FAQ
 Аватар для Dragokas
18030 / 7733 / 892
Регистрация: 25.12.2011
Сообщений: 11,502
Записей в блоге: 16
06.11.2013, 21:15
Я давал ссылку - там есть пример. Он для Batch. Т.е. расширение файла должно быть такое .bat или .cmd

Если Вы пишете для VBS, Вы можете воспользоваться методом, который ожидает завершения работы внешней утилиты, например:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim ScriptPath: ScriptPath = WScript.ScriptFullname
ScriptPath = left(ScriptPath, instrrev(ScriptPath, "\"))
DQ = """"
 
'папка, куда скачать
DestFolder = "c:\temp"
 
'URL-адрес
URL = "http://download.downloadmaster.ru/dm/dmaster.exe"
 
'Args - дополнительные аргументы
Args = "--tries=2 --timestamping -c"
 
Set WshShell = CreateObject("WScript.Shell")
RetCode = WshShell.Run("cmd.exe /c " & DQ & DQ & ScriptPath & "wget.exe" & DQ &_
" " & Args & " -P " & DQ & DestFolder & DQ & " " & DQ & URL & DQ & DQ, 1, True)
 
msgbox "Скачивание завершено. Файл сохранен в каталог: " & DestFolder
Положите рядом со скриптом утилиту WGET,
укажите правильную целевую папку DestFolder,
запустите, попробуйте оборвать закачку, закрытием окна консоли,
повторно запустите скрипт и увидите, что произойдет.

Ключи настроены на 2 повторные попытки подключения к серверу в случае неудачи,
а также проверку наличия обновлений для уже скачанного файла.
1
7 / 7 / 2
Регистрация: 24.02.2013
Сообщений: 90
08.11.2013, 23:43  [ТС]
Dragokas, используя твой код, файл почему-то не скачивается, но зато это сподвигло меня разобраться во wget и я написал маленький код для докачки файла, за это спасибо
И последний вопрос, это может пригодиться мне в будущем: что нужно написать, чтобы консоль рабоатла в скрытом режиме?
0
Эксперт WindowsАвтор FAQ
 Аватар для Dragokas
18030 / 7733 / 892
Регистрация: 25.12.2011
Сообщений: 11,502
Записей в блоге: 16
09.11.2013, 00:07
zzzzza, без понятия. У меня все работает. Проверял на XP, Vista и 7.
Может, Вы путь неверный указали? Вот версия, которая скачивает в папку со скриптом в скрытом режиме и возвратом кода ошибки.
Вложения
Тип файла: zip Download_By_WGET.zip (385.7 Кб, 16 просмотров)
1
Модератор
Эксперт JS
 Аватар для Eva Rosalene
5241 / 2115 / 416
Регистрация: 06.01.2013
Сообщений: 4,846
09.11.2013, 17:54
И последний вопрос, это может пригодиться мне в будущем: что нужно написать, чтобы консоль рабоатла в скрытом режиме?
Bash
1
2
3
4
5
6
7
8
9
10
11
12
13
14
@set @x=0; /*
@echo off
if not "%~1"=="silent" (cscript //nologo  //e:jscript "%~f0" %* && exit /b) else (shift)
 
::Здесь основной код файла вплоть до команды exit
ping -n 1 -w 3000 1.0.0.0
echo.%~1 | msg *
exit /b
*/WScript.CreateObject("WScript.Shell").Run('"' + WScript.ScriptFullName + '" silent ' + Args(), 0);
function Args(){
 var Args = "";
 for(var i=0;i<WScript.Arguments.length;i++) Args=Args + WScript.Arguments(i);
 return Args;
}
Файл сохраняйте с расширением .bat
Имейте ввиду, что он бережно хранит все аргументы даже после перезапуска.
0
Эксперт WindowsАвтор FAQ
 Аватар для Dragokas
18030 / 7733 / 892
Регистрация: 25.12.2011
Сообщений: 11,502
Записей в блоге: 16
09.11.2013, 18:06
Если я правильно понимаю... Батник вызывается с аргументом silent (и еще другими любыми), после чего перезапускает себя в скрытом, собирая и передавая всё те же аргументы, при этом 1-й аргумент опускается командой Shift.
Такая логика?
Только еще бы учесть что аргументы могут быть переданы в кавычках и состоять из пробелов.
0
Модератор
Эксперт JS
 Аватар для Eva Rosalene
5241 / 2115 / 416
Регистрация: 06.01.2013
Сообщений: 4,846
09.11.2013, 20:39
Цитата Сообщение от Dragokas Посмотреть сообщение
Если я правильно понимаю... Батник вызывается с аргументом silent (и еще другими любыми), после чего перезапускает себя в скрытом, собирая и передавая всё те же аргументы, при этом 1-й аргумент опускается командой Shift.
Такая логика?
Только еще бы учесть что аргументы могут быть переданы в кавычках и состоять из пробелов.
Угу. Насчет кавычек и пробелов - правильно. Надо будет добавить.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
09.11.2013, 20:39
Помогаю со студенческими работами здесь

Не скачивается текстовый файл с FTP
FTP Не качает файл .txt, почему? Вроде бы все верно указано, зашел через гугл все работает, но мое не скачивается. ...

Не скачивается файл по FTP на системный диск
При скачивании файла на системный диск (C) выскакивает ошибка Отказано в доступе по пути &quot;C:\\MyProgram.exe&quot;.&quot; Код...

Не скачивается exe файл
Не скачивается exe файл.Сижу с хрома.Выдает сообщение &quot;ошибка сети&quot;

Куда скачивается файл?
Нашел в сети такой код для скачивания файла: public static void downloadFiles(String strURL, String strPath, int buffSize) { ...

Не скачивается файл с UCOZ
Public Class Form1 Dim WithEvents wc As New System.Net.WebClient Private Sub Button1_Click(ByVal sender As System.Object, ByVal...


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

Или воспользуйтесь поиском по форуму:
12
Ответ Создать тему
Новые блоги и статьи
Первый деплой
lagorue 16.01.2026
Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит токи на L и напряжения на C в установ. режимах до и. . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes
lagorue 13.01.2026
А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru