Выгрузка прайса на сайт через ftp

[Alexx]

Уважаемые форумчане, может кто уже делал:

Программа позволяет выполнять скрипты до или после выполнения экспорта. Хотелось бы выгружать прайс лист в exel из программы через ftp на сайт для скачивания его покупателями. Подскажите, как это можно сделать и может у кого-нибудь есть скрипт?

[support]

Такой возможности не имеется, на данный момент.

[Alexx]

Жаль, так как это было бы удобно

[TechAdmin]

Вы можете использовать для этого скрипт VBS (Visual Basic Scripting)
Пример файла ftp.vbs

Код: Выделить всё

On Error Resume Next 
'Создаем файл сценария для FTP.EXE 
set FSO = CreateObject("Scripting.FileSystemObject") 
Set WSHshell = WScript.CreateObject("WScript.Shell") 
Set sDir = WSHshell.Environment("Process")    ' - находим путь к папке Windows 
Set cScript = fso.CreateTextFile (sDir("windir") & "\FTp.scr")  '-Обозначаем место, где будет создан и сохранен файл сценария (в данном случае - папочка виндовз) 
cScript.WriteLine "Open ftp.narod.ru"       '- Открываем соединение с сайтом ftp.narod.ru на 21 порту 
cScript.WriteLine "Тут ваш логин"                     '- Имя пользователя 
cScript.WriteLine "Тут ваш пароль"                    '- Пароль 
cScript.WriteLine "PUT файл.txt"             '- А это файл который мы закачиваем (если скачиваем, тогда GET) 
cScript.WriteLine "bye"                             '-разрываем соединение с ftp.narod.ru 
cScript.Close                                             '- Конец записи в файл сценария 
' Запускаем FTP-сценарий 
WSHshell.Run sDir("windir") & "\system32" & "\FTP.ExE -s:" & sDir("windir") & "\FTp.scr", 0 
Set fso = Nothing 
Set WSHshell  = Nothing 
WScript.Echo "Done!"   '-можете удалить эту строчку, она просто сигнализирует о том, что всё кульно 
wscript.quit(0) ' -выход 

[Alexx]

О, отлично! Спасибо, попробую.