Avatar billede oecode Nybegynder
08. maj 2007 - 11:43 Der er 4 kommentarer

Hente mapper og filer via FTP

Hej,

Har fået dette til at virke (hente en fil via FTP):
****************
Option Explicit
Dim objFSO, objMyFile, objShell, strFTPScriptFileName

strFTPScriptFileName = "D:\links.php"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objMyFile = objFSO.CreateTextFile(strFTPScriptFileName, True)
objMyFile.WriteLine ("open 172.16.21.6")
objMyFile.WriteLine ("1")             ' Login
objMyFile.WriteLine ("1")             ' Password
objMyFile.WriteLine ("cd F:\")
objMyFile.WriteLine ("binary")
objMyFile.WriteLine ("lcd D:\")
objMyFile.WriteLine ("get " & "1.zip")
objMyFile.WriteLine ("bye")
objMyFile.Close

Set objFSO = Nothing
Set objMyFile = Nothing


'The following code executes the FTP script. It creates a Shell object and run FTP program on top of it.
Set objShell = WScript.CreateObject( "WScript.Shell" )
objShell.Run ("ftp -s:" & chr(34) & strFTPScriptFileName & chr(34))
Set objShell = Nothing
****************


Men hvordan henter jeg hele mapper..?
Og hvordan sender jeg filer og mapper..?
Kan man bruger joker (*)..?

Håber nogen kan svare
Avatar billede nestle Nybegynder
08. maj 2007 - 15:33 #1
Her kan du se hvad der er at gøre godt med: http://www.ss64.com/nt/ftp.html
Men hente hele mapper hedder mget
Sende filer put
sende mapper mput
og ja til joker:-)
håber at det er svar nok....
/nestle
Avatar billede oecode Nybegynder
08. maj 2007 - 19:40 #2
Perfekt, det ser ud til at være lige hvad jeg søger... Prøver det af i morgen. Tak
Avatar billede oecode Nybegynder
09. maj 2007 - 08:06 #3
Har lige nogle spørgsmål...

D:\xxx\yyy1\zzz1.zip
D:\xxx\yyy1\zzz2.zip
D:\xxx\yyy2\zzz1.zip
D:\xxx\yyy2\zzz2.zip

hvis jeg skriver dette:

****************
Option Explicit
Dim objFSO, objMyFile, objShell, strFTPScriptFileName

strFTPScriptFileName = "D:\links.php"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objMyFile = objFSO.CreateTextFile(strFTPScriptFileName, True)
objMyFile.WriteLine ("open 172.16.21.6")
objMyFile.WriteLine ("1")            ' Login
objMyFile.WriteLine ("1")            ' Password
objMyFile.WriteLine ("cd F:\")
objMyFile.WriteLine ("binary")
objMyFile.WriteLine ("lcd D:\")
objMyFile.WriteLine ("mget " & "xxx")
objMyFile.WriteLine ("bye")
objMyFile.Close

Set objFSO = Nothing
Set objMyFile = Nothing


'The following code executes the FTP script. It creates a Shell object and run FTP program on top of it.
Set objShell = WScript.CreateObject( "WScript.Shell" )
objShell.Run ("ftp -s:" & chr(34) & strFTPScriptFileName & chr(34))
Set objShell = Nothing
****************

... kommer yyy1 og yyy2 som 2 filer med størrelsen 0 Kb

Er det ikke muligt at hente xxx (og dens indhold) i ét hug.

?????
Avatar billede oecode Nybegynder
09. maj 2007 - 10:06 #4
Jeg kan ikke "putte" fra et bibliotek, hvis navnet indeholder [Space]

Kan man gør noget, så man kan det..?
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester