Scenarijaus failų informacijos ištraukimui iš ftp serverio

Problema

Įdomu, ar galėtumėte man padėti, prašau.

Norėčiau sukurti scenarijų (bet kuria kalba, kokia ji yra lengviausia), kuri, paleisdama, prisijungs prie esamo ftp serverio, naudodama bendrąją paskyrą ir slaptažodį, tada išvardykite failus konkrečiame aplanke, prasidedančiame eilutės „abc“ ". Tada failų pavadinimai kartu su jų kūrimo data bus ištraukiami iš csv failo (ar panašaus). Ar kas nors gali man padėti šiuo klausimu?

Sprendimas

Štai scenarijus:

ftp.Hostname = "ftp.test.com"

ftp.Username = "Vartotojas"

ftp.Password = "Pass"

„Numatytasis duomenų perdavimo režimas yra„ Aktyvus “, o ne„ Pasyvus “.

„Pakeiskite jį į„ Pasyvus “nustatydami pasyvųjį turtą:

ftp.Passive = 1

„Sukurkite AUTH SSL saugų kanalą po ryšio

„standartiniame FTP prievade 21“.

ftp.AuthTls = 1

„SSL nuosavybė skirta numanomam SSL ryšiui sukurti

„990 prievado“.

ftp.Sl = 0

„Prisijunkite ir prisijunkite prie FTP serverio.

connectStatus = ftp.Connect ()

Jei (connectStatus 1) tada

„MsgBox ftp.LastErrorText

„WScript.Quit“

Pagrindinis = DTSTaskExecResult_Failure

Kitas

dirStatus = ftp.ChangeRemoteDir ("RMed")

Jei (dirStatus 1) tada

„MsgBox ftp.LastErrorText

„WScript.Quit“

Pagrindinis = DTSTaskExecResult_Failure

Baigti Jei

„MsgBox ftp.getCurrentRemoteDir ()

„nurodykite vietinio kompiuterio failo kelią ir pavadinimą

localInvoiceFile = "C: dokumentai ir nustatymaiNathanMy Documents2dRMedInvoice_RMed.txt"

localPatientFile = "C: dokumentai ir nustatymaiNathanMy Documents2dRMedPatient_RMed.txt"

„nurodyti nuotolinio įrenginio failo kelią ir pavadinimą

remoteInvoiceFile = "C: KlientaiStratFailų įkėlimasKlientų įkėlimasRMedInvoice_RMed.txt"

remotePatientFile = "C: KlientaiStratFailų įkėlimasKlientų įkėlimasRMedPatient_RMed.txt"

„MsgBox remoteInvoiceFile“

„MsgBox remotePatientFile“

„atsisiųskite failus iš nuotolinio serverio

transferStatus = ftp.getFile (remoteInvoiceFile, localInvoiceFile)

jei (transferStatus 1) tada

„MsgBox ftp.LastErrorText

Pagrindinis = DTSTaskExecResult_Failure

Kitas

Pagrindinis = DTSTaskExecResult_Success

pabaigos, jei

transferStatus = ftp.GetFile (nuotolinisPatientFile, localPatientFile)

jei (transferStatus 1) tada

„MsgBox ftp.LastErrorText

Pagrindinis = DTSTaskExecResult_Failure

Kitas

Pagrindinis = DTSTaskExecResult_Success

pabaigos, jei

END IF

ftp.Disconnect

Pabaigos funkcija

Pastaba

Ačiū cb4nd17 už šį patarimą forume.

Ankstesnis Straipsnis Kitas Straipsnis

Geriausi Patarimai