Autor
Aqui os dejo el codigo:
Código:
Dim dir As String = My.Computer.FileSystem.CurrentDirectory & "\" & "data.tmp"
Wr("usuario", dir)
Wr("contraseña", dir)
Wr("cd", dir)
Wr("carpeta1", dir)
Wr("cd", dir)
Wr("carpeta2", dir)
Wr("put img.png", dir)
Wr("bye", dir, False)
Shell("cmd /c ftp -v -i -s:" & Chr(34) & dir & Chr(34) & " ftp.host.es")
Código:
Sub Wr(ByVal text As String, ByVal dir As String, Optional ByVal space As Boolean = True)
If space = True Then
My.Computer.FileSystem.WriteAllText(dir, text & vbCrLf, True)
Else
My.Computer.FileSystem.WriteAllText(dir, text, True)
End If
End Sub
El error que me da es:
Y lo he probado con varias extensiones de arhivos
No se puede mostrar la imagen “http://host.com/carpeta1/carpeta2/img.png” porque contiene errores.
¿Cómo puedo arreglarlo?
En línea
