Option Explicit
 
' Für Fehlerauswertung...
Dim bError As Boolean
Private Sub Inet1_StateChanged(ByVal State As Integer)
If State = icError Then
    bError = True
  End If
End Sub
 
Private Sub Form_Load()
Dim sLocalFile As String
Dim sRemoteFile As String
 
bError = False
With Inet1
  .AccessType = icUseDefault
 
  ' Protokoll auf FTP setzen und Port 21 verwenden
  .Protocol = icFTP
  .RemotePort = 21
 
  ' Name des FTP-Servers, zu dem verbunden werden soll
  .URL = "ftp.ftp.de"
 
  ' Benutzer-Authentifizierung
  .UserName = "xxxxxxxxxx"
  .Password = "xxxxxxxxxx"
 
  ' Datei, die hochgeladen werden soll (lokal)
  sLocalFile = "C:\Upload\internet\out.dat"
 
  ' Verzeichnis und Dateiname der Zieldatei auf dem FTP-Server
  sRemoteFile = "/Upload/out.dat"
 
  ' Upload ausführen
  .Execute , "PUT " & sLocalFile & " " & sRemoteFile
 
  'MsgBox "Übertragung läuft"
  ' Warten, bis Vorgang abgeschlossen
  Do While .StillExecuting And Not bError
    DoEvents
  Loop
 
  If Not bError Then
  ' Upload war erfolgreich
  MsgBox "Die Übertragung ist abgeschlossen"
 
  Else
    ' Fehler
    MsgBox "Fehler beim Upload! Bitte überprüfen Sie Ihre Internetverbindung" & _
      vbCrLf & _
      "ResponseCode: " & .ResponseCode & vbCrLf & _
      "ResponseInfo: " & .ResponseInfo
  End If
  End With
Unload Me
End Sub