Блог

Главная - Вопросы по программированию - требуется скрипт для загрузки файлов загрузки с FTP

требуется скрипт для загрузки файлов загрузки с FTP

#shell #vbscript #ftp #synchronization #backup

#оболочка #vbscript #ftp #синхронизация #резервное копирование

Вопрос:

привет, друзья, может ли кто-нибудь помочь мне скрипт для загрузки и загрузки данных с FTP и, если возможно, создать отчет журнала

спасибо, друзья, я был бы вам очень благодарен, если бы помог

Комментарии:

1. Вы также хотели бы, чтобы мы перевели немного денег на ваш банковский счет?

Ответ №1:

Это загружает http, но также и с ftp. Он может загружать по крайней мере http (никогда не пробовал ftp), см. Документы. Для загрузки измените глагол и file.send uploaddata . 

  On Error Resume Next
 Set File = WScript.CreateObject("Microsoft.XMLHTTP")
 File.Open "GET", "http://www.pepperresources.org/LinkClick.aspx?fileticket=B1doLYYSaeY=amp;tabid=61", False
 'This is IE 8 headers
 File.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.0; Trident/4.0; SLCC1; .NET CLR 2.0.50727; Media Center PC 5.0; .NET CLR 1.1.4322; .NET CLR 3.5.30729; .NET CLR 3.0.30618; .NET4.0C; .NET4.0E; BCD2000; BCD2000)"
 File.Send
 If err.number <> 0 then 
    line =""
    Line  = Line amp;  vbcrlf amp; "" 
    Line  = Line amp;  vbcrlf amp; "Error getting file" 
    Line  = Line amp;  vbcrlf amp; "==================" 
    Line  = Line amp;  vbcrlf amp; "" 
    Line  = Line amp;  vbcrlf amp; "Error " amp; err.number amp; "(0x" amp; hex(err.number) amp; ") " amp; err.description 
    Line  = Line amp;  vbcrlf amp; "Source " amp; err.source 
    Line  = Line amp;  vbcrlf amp; "" 
    Line  = Line amp;  vbcrlf amp; "HTTP Error " amp; File.Status amp; " " amp; File.StatusText
    Line  = Line amp;  vbcrlf amp;  File.getAllResponseHeaders
    wscript.echo Line
    Err.clear
    wscript.quit
 End If

On Error Goto 0

 Set BS = CreateObject("ADODB.Stream")
 BS.type = 1
 BS.open
 BS.Write File.ResponseBody
 BS.SaveToFile "c:userstest.txt", 2