Скрипта за издвајање датотека инфо са фтп сервера
Питање
Питам се можете ли ми помоћи са сљедећим молим.
Желео бих да направим скрипту (на било ком језику који год да је најлакши) која ће се приликом покретања пријавити на постојећи фтп сервер користећи генерички налог и лозинку, а затим навести датотеке у одређеној фасцикли која почиње низом "абц" ". Имена датотека заједно са њиховим датумом креирања се затим екстрахују на цсв датотеци (или слично). Може ли ми неко помоћи да ми помогнем?
Решење
Ево скрипте:
фтп.Хостнаме = "фтп.тест.цом"
фтп.Усернаме = "Корисник"
фтп.Пассворд = "Пасс"
'Подразумевани режим преноса података је "Активан", за разлику од "Пасивног".
'Промените га у' 'Пасивно' 'тако што ћете подесити Пассиве проперти:
фтп.Пассиве = 1
'Успоставите АУТХ ССЛ безбедни канал након повезивања
'на стандардном ФТП порту 21.
фтп.АутхТлс = 1
Ссл својство је за успостављање имплицитне ССЛ везе
'на порту 990. Не постављајте га.
фтп.Ссл = 0
'Повезивање и пријављивање на ФТП сервер.
цоннецтСтатус = фтп.Цоннецт ()
Иф (цоннецтСтатус 1) Затим
'МсгБок фтп.ЛастЕррорТект
'ВСцрипт.Куит
Маин = ДТСТаскЕкецРесулт_Фаилуре
Елсе
дирСтатус = фтп.ЦхангеРемотеДир ("РМед")
Иф (дирСтатус 1) Тада
'МсгБок фтп.ЛастЕррорТект
'ВСцрипт.Куит
Маин = ДТСТаскЕкецРесулт_Фаилуре
Енд Иф
'МсгБок фтп.гетЦуррентРемотеДир ()
'наведите путању и име датотеке на локалној машини
лоцалИнвоицеФиле = "Ц: Документи и поставкеНатханМи Доцументс2дРМедИнвоице_РМед.ткт"
лоцалПатиентФиле = "Ц: Документи и поставкеНатханМи Доцументс2дРМедПатиент_РМед.ткт"
'наведите путању датотеке и име на удаљеној машини
ремотеИнвоицеФиле = "Ц: КлијентиСтратФиле УплоадсЦустомер УплоадсРМедИнвоице_РМед.ткт"
ремотеПатиентФиле = "Ц: КлијентиСтратФиле УплоадсЦустомер УплоадсРМедПатиент_РМед.ткт"
'МсгБок ремотеИнвоицеФиле
'МсгБок ремотеПатиентФиле
'преузимање датотека са удаљеног сервера
трансферСтатус = фтп.гетФиле (ремотеИнвоицеФиле, лоцалИнвоицеФиле)
ако (трансферСтатус 1) тада
'МсгБок фтп.ЛастЕррорТект
Маин = ДТСТаскЕкецРесулт_Фаилуре
друго
Маин = ДТСТаскЕкецРесулт_Суццесс
енд иф
трансферСтатус = фтп.ГетФиле (ремотеПатиентФиле, лоцалПатиентФиле)
ако (трансферСтатус 1) тада
'МсгБок фтп.ЛастЕррорТект
Маин = ДТСТаскЕкецРесулт_Фаилуре
друго
Маин = ДТСТаскЕкецРесулт_Суццесс
енд иф
ЕНД ИФ
фтп.Дисцоннецт
Енд Фунцтион
Белешка
Хвала цб4нд17 за овај тип на форуму.