Module Module1
 
    Private Const USER = "USER"
    Private Const PASSWORD = "PASSWORD"
    Private Const ADDRESS = "ftp://server.domain/test.txt"
    Private Const FILE = "C:\Temp\test.txt"
 
    Sub Main()
        Dim credentials As New Net.NetworkCredential(USER, PASSWORD)
        Dim ftpWebRequest As Net.FtpWebRequest
        ftpWebRequest = Net.FtpWebRequest.Create(ADDRESS)
        ftpWebRequest.EnableSsl = True
        ftpWebRequest.Credentials = credentials
        ftpWebRequest.Method = Net.WebRequestMethods.Ftp.UploadFile
        Dim requestStream As IO.Stream = ftpWebRequest.GetRequestStream()
        Dim fileStream As IO.Stream = IO.File.OpenRead(FILE)
 
        Const bufferLength As Integer = 2048
        Dim buffer(bufferLength) As Byte
        Dim count As Integer = 0
        Dim readBytes As Integer = 0
 
        Do
            readBytes = fileStream.Read(buffer, 0, bufferLength)
            requestStream.Write(buffer, 0, readBytes)
            count += readBytes
        Loop While readBytes <> 0
 
        requestStream.Close()
        fileStream.Close()
    End Sub
 
End Module

Dim requestStream As IO.Stream = ftpWebRequest.GetRequestStream()

Der Remoteserver hat einen Fehler zurückgegeben: (530) Nicht angemeldet.