' Verbindung zum Server herstellen
Public Function Connect(ByVal sRemoteHost As String, _
  Optional ByVal sUsername As String = "username", _
  Optional ByVal sPassword As String = "passwort") As Boolean
 
  ' Ist noch eine Verbindung vorhanden?
  ' Wenn ja, muss diese zunächst beendet werden!
  If hOpen <> 0 Or hConnection <> 0 Then
    Disconnect
  End If
 
  ' Neue Verbindung starten
  hOpen = InternetOpen("FTP", _
    INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, _
    vbNullString, 0)
 
  If hOpen Then
    hConnection = InternetConnect(hOpen, _
      sRemoteHost, INTERNET_INVALID_PORT_NUMBER, _
      sUsername, sPassword, INTERNET_SERVICE_FTP, 0, 0)
  End If
 
  Connect = (hConnection <> 0)
End Function
' Datei auf den Server hochladen
Public Function FileUpload( _
  ByVal sLocalFilename As String, _
  ByVal sRemoteFilename As String, _
  Optional ByVal nTransferType As eTransferType = _
  FTP_TRANSFER_TYPE_BINARY) As Boolean
 
  FileUpload = FtpPutFile(hConnection, _
    sLocalFilename, sRemoteFilename, nTransferType, 0)
End Function
' Verbindung zum Server beenden
Public Sub Disconnect()
  If hConnection <> 0 Then
    InternetCloseHandle hConnection
    hConnection = 0
  End If
 
  If hOpen <> 0 Then
    InternetCloseHandle hOpen
    hOpen = 0
  End If
End Sub
 
Private Sub ftp()
' Anmeldung am Server
sRemoteHost = Text2.Text
If Connect(sRemoteHost) Then
  ' Lokaler Dateiname
  sLocalFile = "c:\test\" & File1.List(0)