Страница 1 из 1
Выгрузка прайса на сайт через ftp
Добавлено: 21 май 2013 12:58
Alexx
Уважаемые форумчане, может кто уже делал:
Программа позволяет выполнять скрипты до или после выполнения экспорта. Хотелось бы выгружать прайс лист в exel из программы через ftp на сайт для скачивания его покупателями. Подскажите, как это можно сделать и может у кого-нибудь есть скрипт?
Re: Выгрузка прайса на сайт через ftp
Добавлено: 21 май 2013 13:12
support
Такой возможности не имеется, на данный момент.
Re: Выгрузка прайса на сайт через ftp
Добавлено: 21 май 2013 13:32
Alexx
Жаль, так как это было бы удобно
Re: Выгрузка прайса на сайт через ftp
Добавлено: 21 май 2013 13:52
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) ' -выход
Re: Выгрузка прайса на сайт через ftp
Добавлено: 21 май 2013 14:27
Alexx
О, отлично! Спасибо, попробую.