Forums Últimos mensajes - Powered by IBM
 

Poner archivos Ftp.

28/01/2010 - 16:55 por Sago | Informe spam
Buenas dias espero que me puedan ayudar por favor con este codigo, ya que no
me funciona, otro que tengo casi igual si me corre, no se por que este otro
no me funciona.

¿Será por la ruta de los archivos que es muy extensa?


Muchas gracias.
Saludos.
Sub SUBIR_CONSAR()

'/safre_prc/sie/envio
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\ftpC.txt", True)
a.WriteLine ("user " & "usuario" & " " & "password")
a.WriteLine ("ascii")
a.WriteLine ("cd ..")
a.WriteLine ("cd ..")
a.WriteLine ("cd safre_prc")
a.WriteLine ("cd sie")
a.WriteLine ("cd envio")

a.WriteLine ("put " & " F:\BACK OFFICE\ENVIO ARCHIVOS CONSAR\Archivos
Diarios ENVIOS_\" & Range("C6").Value)
a.WriteLine ("put " & " F:\BACK OFFICE\ENVIO ARCHIVOS CONSAR\Archivos
Diarios ENVIOS_\" & Range("C7").Value)
a.WriteLine ("put " & " F:\BACK OFFICE\ENVIO ARCHIVOS CONSAR\Archivos
Diarios ENVIOS_\" & Range("C8").Value)
a.WriteLine ("put " & " F:\BACK OFFICE\ENVIO ARCHIVOS CONSAR\Archivos
Diarios ENVIOS_\" & Range("C9").Value)
a.WriteLine ("put " & " F:\BACK OFFICE\ENVIO ARCHIVOS CONSAR\Archivos
Diarios ENVIOS_\" & Range("C10").Value)
a.WriteLine ("put " & " F:\BACK OFFICE\ENVIO ARCHIVOS CONSAR\Archivos
Diarios ENVIOS_\" & Range("C11").Value)
a.WriteLine ("put " & " F:\BACK OFFICE\ENVIO ARCHIVOS CONSAR\Archivos
Diarios ENVIOS_\" & Range("C12").Value)
a.WriteLine ("put " & " F:\BACK OFFICE\ENVIO ARCHIVOS CONSAR\Archivos
Diarios ENVIOS_\" & Range("C13").Value)
a.WriteLine ("put " & " F:\BACK OFFICE\ENVIO ARCHIVOS CONSAR\Archivos
Diarios ENVIOS_\" & Range("C14").Value)
a.WriteLine ("put " & " F:\BACK OFFICE\ENVIO ARCHIVOS CONSAR\Archivos
Diarios ENVIOS_\" & Range("C15").Value)
a.WriteLine ("put " & " F:\BACK OFFICE\ENVIO ARCHIVOS CONSAR\Archivos
Diarios ENVIOS_\" & Range("C16").Value)
a.WriteLine ("put " & " F:\BACK OFFICE\ENVIO ARCHIVOS CONSAR\Archivos
Diarios ENVIOS_\" & Range("C17").Value)
a.WriteLine ("put " & " F:\BACK OFFICE\ENVIO ARCHIVOS CONSAR\Archivos
Diarios ENVIOS_\" & Range("C18").Value)
a.WriteLine ("put " & " F:\BACK OFFICE\ENVIO ARCHIVOS CONSAR\Archivos
Diarios ENVIOS_\" & Range("C19").Value)
a.WriteLine ("put " & " F:\BACK OFFICE\ENVIO ARCHIVOS CONSAR\Archivos
Diarios ENVIOS_\" & Range("C20").Value)
a.WriteLine ("put " & " F:\BACK OFFICE\ENVIO ARCHIVOS CONSAR\Archivos
Diarios ENVIOS_\" & Range("C21").Value)
a.WriteLine ("put " & " F:\BACK OFFICE\ENVIO ARCHIVOS CONSAR\Archivos
Diarios ENVIOS_\" & Range("C22").Value)
a.WriteLine ("put " & " F:\BACK OFFICE\ENVIO ARCHIVOS CONSAR\Archivos
Diarios ENVIOS_\" & Range("C23").Value)
a.WriteLine ("put " & " F:\BACK OFFICE\ENVIO ARCHIVOS CONSAR\Archivos
Diarios ENVIOS_\" & Range("C24").Value)
a.WriteLine ("put " & " F:\BACK OFFICE\ENVIO ARCHIVOS CONSAR\Archivos
Diarios ENVIOS_\" & Range("C25").Value)
a.WriteLine ("put " & " F:\BACK OFFICE\ENVIO ARCHIVOS CONSAR\Archivos
Diarios ENVIOS_\" & Range("C26").Value)
a.WriteLine ("put " & " F:\BACK OFFICE\ENVIO ARCHIVOS CONSAR\Archivos
Diarios ENVIOS_\" & Range("C27").Value)
a.WriteLine ("put " & " F:\BACK OFFICE\ENVIO ARCHIVOS CONSAR\Archivos
Diarios ENVIOS_\" & Range("C28").Value)
a.WriteLine ("put " & " F:\BACK OFFICE\ENVIO ARCHIVOS CONSAR\Archivos
Diarios ENVIOS_\" & Range("C29").Value)


a.WriteLine ("cd ..")
a.WriteLine ("cd cd safre_prc/sie/envio")
a.WriteLine ("cd ret")
a.WriteLine ("cd envio")
a.WriteLine ("put " & arch3 & " C:\ACUSE\" & arch3)
a.WriteLine ("quit")
a.Close
Dim RetVal

RetVal = Shell("ftp -v -n -s:c:\ftpC.txt 186.2.1.181", 0)


End Sub
 

Leer las respuestas

#1 Héctor Miguel
29/01/2010 - 04:23 | Informe spam
hola, !

Buenas dias espero que me puedan ayudar por favor con este codigo, ya que no me funciona
otro que tengo casi igual si me corre, no se por que este otro no me funciona.
Sera por la ruta de los archivos que es muy extensa? ...



si la unica diferencia entre ambos procedimientos (el que si funciona y este) es el largo de la ruta... (???)

por otro lado, es probable que esta linea (intentando una doble "subida" de directorio) detenga la ejecucion:
a.WriteLine ("cd cd safre_prc/sie/envio")



algo que podrias hacer para "adelgazar" el codigo (en su numero de lineas):
poner un bucle para escribir lineas en el archivo de texto "avanzando" las celdas necesarias (?)

saludos,
hector.

Preguntas similares