1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

[VB] Enviar ficheiros de texto via FTP

Discussão em 'Programação' iniciada por brunocosta505, 30 de Julho de 2009. (Respostas: 1; Visualizações: 1351)

  1. brunocosta505

    brunocosta505 Power Member

    boas...

    tenho estado a tentar incluir uma parte num programa em que simplesmente envia um ficheiro para um servidor via FTP... o código que tenho é este:

    Código:
    Imports System
    Imports System.IO
    Imports System.Net
    Imports System.Text
    
    Public Class Form1
    
        Public Shared Function TextUpload(ByVal Host As String, ByVal Port As UInt16, ByVal UserName As String, ByVal Password As String, ByVal SourceStr As String, ByVal FileName As String) As Boolean
            Dim FTPCon As FtpWebRequest
            FTPCon = WebRequest.Create(Host & ":" & Port & "/" & FileName)
            FTPCon.Method = WebRequestMethods.Ftp.UploadFile
            FTPCon.Credentials = New NetworkCredential(UserName, Password)
            Dim FileContent() As Byte = Encoding.ASCII.GetBytes(SourceStr)
            FTPCon.ContentLength = FileContent.Length
            Try
                Dim ReqStream As Stream = FTPCon.GetRequestStream
                ReqStream.Write(FileContent, 0, FileContent.Length)
                ReqStream.Close()
                Dim FTPRes As FtpWebResponse = FTPCon.GetResponse
                Return True
            Catch ex As Exception
                Return False
            End Try
        End Function
    End Class
    
    alguém sabe-me dizer se isto está correcto? é que eu sou novo nesta parte do ftp e é a primeira vez que estou a tentar fazer uma conexão destas...

    obrigado pela atenção
     
  2. brunocosta505

    brunocosta505 Power Member

    já encontrei o meu erro.. podem fechar o tópico.. obrigado :lol:
     

Partilhar esta Página