Skripts, lai iegūtu failus no ftp servera
Izdevums
Brīnums, ja jūs varētu man palīdzēt, lūdzu, lūdzu.
Es vēlos izveidot skriptu (jebkurā valodā, kas ir vienkāršākā), kas palaišanas laikā pieteiksies esošajā ftp serverī, izmantojot vispārēju kontu un paroli, pēc tam uzskaitot failus konkrētā mapē, kas sākas ar virkni "abc ". Pēc tam faila nosaukumi kopā ar to izveides datumu tiek iegūti csv failā (vai tamlīdzīgā). Vai kāds var man palīdzēt šajā jautājumā?
Risinājums
Šeit ir skripts:
ftp.Hostname = "ftp.test.com"
ftp.Username = "Lietotājs"
ftp.Password = "Pass"
'Noklusējuma datu pārsūtīšanas režīms ir "Aktīvs", nevis "Pasīvs".
“Mainiet to uz pasīvu, nosakot pasīvo īpašumu:
ftp.Passive = 1
“Pēc savienojuma izveides izveidojiet automātisko SSL drošu kanālu
"standarta FTP portā 21.
ftp.AuthTls = 1
Ssl īpašums ir paredzēts netieša SSL savienojuma izveidei
'uz 990. portu.
ftp.Sl = 0
'Pievienojiet un piesakieties FTP serverī.
connectStatus = ftp.Connect ()
Ja (connectStatus 1) tad
'MsgBox ftp.LastErrorText
'WScript.Quit
Galvenais = DTSTaskExecResult_Failure
Vēl
dirStatus = ftp.ChangeRemoteDir ("RMed")
Ja (dirStatus 1) Tad
'MsgBox ftp.LastErrorText
'WScript.Quit
Galvenais = DTSTaskExecResult_Failure
Beigas Ja
'MsgBox ftp.getCurrentRemoteDir ()
“norādiet faila ceļu un nosaukumu vietējā datorā
localInvoiceFile = "C: dokumenti un iestatījumiNathanMy Documents2dRMedInvoice_RMed.txt"
localPatientFile = "C: dokumenti un iestatījumiNathanMy Documents2dRMedPatient_RMed.txt"
'norādiet faila ceļu un nosaukumu tālvadības ierīcē
remoteInvoiceFile = "C: KlientiStratFailu augšupielādesKlientu augšupielādeRMedInvoice_RMed.txt"
remotePatientFile = "C: KlientiStratFailu augšupielādeKlientu augšupielādeRMedPatient_RMed.txt"
'MsgBox remoteInvoiceFile
'MsgBox tālvadības fails
'lejupielādēt failus no attālā servera
transferStatus = ftp.getFile (remoteInvoiceFile, localInvoiceFile)
tad (transferStatus 1)
'MsgBox ftp.LastErrorText
Galvenais = DTSTaskExecResult_Failure
cits
Main = DTSTaskExecResult_Success
beigas, ja
transferStatus = ftp.GetFile (attālāPatientFile, vietējaisPatientsFile)
tad (transferStatus 1)
'MsgBox ftp.LastErrorText
Galvenais = DTSTaskExecResult_Failure
cits
Main = DTSTaskExecResult_Success
beigas, ja
END IF
ftp.Disconnect
Beigu funkcija
Piezīme
Pateicoties cb4nd17 par šo padomu forumā.