• User

    inviare via ftp con cript 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;)