inviare via ftp con script vbs

[kiasmo72]

inviare via ftp con script vbs

Ciao a tutti, avrei necessità di spedire via ftp ( al mio disco remoto messo a disposizione da alice) un file txt presente nel mio (http://www.pierotofy.it/pages/wiki/548-pc/) di casa. Io ho trovato questo script che mi è stato di molto aiuto per spedire il file.txt via posta con Outlook.Qualcuno sa dirmi come dovrebbe essere strutturato lo script per farlo via ftp, o le modifiche che si potrebbero fare a questo?

script:

filename = "c:\miofile.txt"
Set oShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set newf = fso.createtextfile(filename)
newf.WriteLine now()
newf.WriteLine "Questo"
newf.WriteLine "E' il mio testo"
newf.WriteLine "Ciao!"
newf.Close
Set txt = fso.OpenTextFile("c:\miofile.txt")
sTo = "[email protected]"
sSubj =now()
sMsg =txt.ReadAll()
sSubj= escape(sSubj)
sMsg= escape(sMsg)
oShell.Run _
"mailto:"&sTo&"?subject="&sSubj&"&body="&sMsg
wscript.sleep 1000
'''''''''' oShell.SendKeys "^~"

Grazie mille a tutti in anticipo;)