Poner archivos Ftp.

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