Help with FTPing files

[Guest erikweisz]

I had been using vbscript to automate ftp file transfers. Is it possible to modify this script so that it will work as an au3 file?

The script uses CuteFTP Pro......Does anyone have any advice???

Script Begin----------------------------------

Set MySite = CreateObject("CuteFTPPro.TEConnection")

MySite.Protocol = "FTP"

MySite.Host = "###.##.##.###"

MySite.Login = "?????"

MySite.Password = "?????"

MySite.UseProxy = "BOTH"

MySite.Connect

If (Not (MySite.LocalExists("c:\temp123"))) Then

MySite.CreateLocalFolder "c:\temp123"

EndIf

MySite.LocalFolder = "c:\temp123"

MySite.Download "/opt/gp02/data/S10098/" & $dow1 & ".PNBRP007.RPDAY2.*"

MySite.Disconnect

MySite.Close

Script End-----------------------------------------------------------------

[/dev/null]

I had been using vbscript to automate ftp file transfers.  Is it possible to modify this script so that it will work as an au3 file?

I guess it will work. See the following thread IPSend where I have "converted" a VBScript to autoit. Just do it in the same way (replace CreateObject with ObjCreate, place a $ in front of every variable, etc.)

Cheers

Kurt

[Guest erikweisz]

I guess it will work. See the following thread IPSend where I have "converted" a VBScript to autoit. Just do it in the same way (replace CreateObject with ObjCreate, place a $ in front of every variable, etc.)

Cheers

Kurt

<{POST_SNAPBACK}>

I have modified the script as follows:

$MySite = ObjCreate("CuteFTPPro.TEConnection")

$MySite.Protocol = "FTP"

$MySite.Host = "###.##.##.###"

$MySite.Login = "*******"

$MySite.Password = "*******"

$MySite.UseProxy = "BOTH"

$MySite.Connect

If (Not ($MySite.LocalExists("c:\temp123"))) Then

$MySite.CreateLocalFolder "c:\temp123"

EndIf

$MySite.LocalFolder = "c:\temp123"

$MySite.RemoteFolder = "/opt/gp02/data/S10098/"

$MySite.Download "monday.PNBAR009.*"

$MySite.Disconnect

$MySite.Close

CuteFTP responds but instead of downloading the files "monday.PNBAR009.*" it tries to download everything in the S10098 folder.

Can anyone help me out???

[w0uter]

$MySite.RemoteFolder = "/opt/gp02/data/S10098/"

$MySite.Download "monday.PNBAR009.*"

<{POST_SNAPBACK}>

looks different from

MySite.Download "/opt/gp02/data/S10098/" & $dow1 & ".PNBRP007.RPDAY2.*"

[Nakuribon]

try putting the entire vb script:

$vbs = ObjCreate("ScriptControl")
$vbs.language = "vbscript"
$vbs.addcode($myCode)
$vbs.run("main")

this should work let me know if it doesnt

Edited June 11, 2005 by Nakuribon