none
¿Como copiar via FTP una carpeta en VBS? RRS feed

Respuestas

  • hola,

     

    por ejemplo, para un archivo 'fichero_a_copiar.txt'

     

    puedes hacer lo siguiente:

     

    Bloque de código

    Dim FSO, File, shell

    Set shell = CreateObject("WScript.Shell")
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set File = FSO.OpenTextFile("c:\temp.txt", 2, True)

    With File
    .WriteLine "open ftp.tuservidor.com"
    .WriteLine "USER admin"
    .WriteLine "12345"
    .WriteLine "PUT c:\fichero_a_copiar.txt"
    .Close
    End With

    shell.Run "ftp -n -s:c:\temp.txt"

     

     

     

    me explico,

     

    creas de forma dynamica tu archivo: temp.txt que se ejecutara despues, alli le puedes pasar argumentos ftp sencillos...

     

    en la ultima linea ejecutas ftp pasandole como argumento tus comandos e identificaciones...

     

    un saludo,

     

    Pierre.

     

    martes, 8 de enero de 2008 17:15