For i = 0 To List3.ListCount - 1
   List3.ListIndex = i
   cmdUpload_Click
Next i

Public Sub cmdUpload_Click()
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 = frmNetzZugang.Text1
 
  ' Benutzer-Authentifizierung
  .UserName = frmNetzZugang.Text2
  .Password = frmNetzZugang.Text3
 
      ' Datei, die hochgeladen werden soll (lokal)
      pf2 = App.Path & "\" & Trim(List3.List(List3.ListIndex))
      MsgBox (pf2)
      sLocalFile = pf2
      'sLocalFile = "c:\testupload.htm"
      ' Verzeichnis und Dateiname der Zieldatei auf dem FTP-Server
      pf = "/jobboerse/" & Trim(List3.List(List3.ListIndex))
      MsgBox (pf)
      'pf = "jobboerse/testupload2.htm"
      sRemoteFile = pf
 
  ' Upload ausführen
  .Execute , "PUT " & sLocalFile & " " & sRemoteFile
 
  ' Warten, bis Vorgang abgeschlossen
  Do While .StillExecuting And Not bError
    DoEvents
  Loop
  '.Execute , "CLOSE"
  If Not bError Then
    MsgBox ("Upload erfolgreich")
 
  Else
    ' Fehler
    MsgBox "Fehler beim Upload!" & vbCrLf & _
      "ResponseCode: " & .ResponseCode & vbCrLf & _
      "ResponseInfo: " & .ResponseInfo
  End If
End With
End Sub