[SOLUCIONADO] Subir fichero por FTP con VB.NET

[moNTeZIon]

Buenos días.
Estoy obteniendo un error al tratar de subir un fichero por FTP con el código VB.NET

Código VB.NET:

Dim miUri As String = "ftp://ftp.midominio.com/carpeta/fichero.jpg"
Dim miRequest As Net.FtpWebRequest = Net.WebRequest.Create(miUri)
miRequest.Credentials = New Net.NetworkCredential("user", "pass")
miRequest.Method = Net.WebRequestMethods.Ftp.UploadFile
Try
        Dim bFile() As Byte = System.IO.File.ReadAllBytes("C:\carpeta\fichero.jpg")
        Dim miStream As System.IO.Stream = miRequest.GetRequestStream()
        miStream.Write(bFile, 0, bFile.Length)
        miStream.Close()
        miStream.Dispose()
Catch ex As Exception
        Throw New Exception(ex.Message & ". El Archivo no pudo ser enviado.")
End Try
 

ex.Message = "Error en el servidor remoto: 227 Entering Passive Mode (91,143,108,70,21,183). ."

ex.InnerException.Message = System.Net.Sockets.SocketException = {"Se ha intentado una operación de socket en una red no accesible 91.143.108.70:5557"}

La línea que provoca el error es esta:
Dim miStream As System.IO.Stream = miRequest.GetRequestStream()

¿A alguien se le ocurre qué problema puedo estar teniendo?
Muchas gracias por sus respuestas.
Saludos.

[basdower]

mm no encuentro error en el código tal ves este poniendo mal tu dominio porq no intentas con este mas sencillo

Código vb:

My.Computer.Network.UploadFile ("archivo para subir", "Servidor FTP y archivos", "Nombre de usuario", "contraseña")
 

salu2!!

[moNTeZIon]

Gracias por tu respuesta.

Ya lo intenté con ese código también, pero obtengo el mismo error.
En cambio, si me conecto al mismo servidor con las mismas credenciales mediante un cliente FTP, como por ejemplo FileZilla, se conecta correctamente y puedo gestionar los ficheros remotos sin problemas.

También comentar que con el siguiente código compruebo la existencia de un fichero en el mismo FTP, y funciona correctamente.

Código VB.NET:

Dim miUri As String = "ftp://ftp.midominio.com/carpeta/fichero.jpg"
Dim miRequest As Net.FtpWebRequest = Net.WebRequest.Create(miUri)
miRequest.Credentials = New Net.NetworkCredential("user", "pass")
miRequest.Method = Net.WebRequestMethods.Ftp.GetFileSize
Try
    Dim response As Net.FtpWebResponse = miRequest.GetResponse()
    ' THE FILE EXISTS
Catch ex As Net.WebException
    Dim response As Net.FtpWebResponse = ex.Response
    If Net.FtpStatusCode.ActionNotTakenFileUnavailable = response.StatusCode Then
        ' THE FILE DOES NOT EXIST
        Return False
    End If
End Try
Return True
 

Parece que el problema lo tengo con el método Upload, no acabo de ver por qué razón.
Gracias y saludos!

[moNTeZIon]

Disculpad por esta incidencia.
Ha resultado ser un problema de la versión de antivirus que tenía en mi equipo.
Desactivando el antivirus funcionaba perfectamente.
Con otra versión del mismo antivirus ha funcionado correctamente.
Había un problema de bloqueo con esa versión, que aunque pusiera la aplicación como aplicación de confianza, la seguía bloqueando.
Tema solucionado.
Gracias.