Public Declare Function ftpConnect Lib "vbarchiv.dll" _
                                  (sServer As String, _
                                   sUser As String, _
                                   sPW As String) As Long
 
Public Declare Function ftpPutFile Lib "vbarchiv.dll" _
                            (ByVal hSocket As Long, _
                             ByRef sServer As String, _
                             ByVal hStatus As Long, _
                                   remoteFile As String, _
                                   localFile As String) As Long
 
Public Declare Function ftpGetLastStatusCode Lib "vbarchiv.dll" _
                            () As Long
 
Public Declare Sub ftpSetAscii Lib "vbarchiv.dll" _
                            (ByVal hSocket As Long)
 
Public Declare Sub ftpQuit Lib "vbarchiv.dll" _
                            (ByVal hSocket As Long)
 
Sub FTPUpload()
 
'Lädt eine Text-Datei auf den Server. /public/... ist der Pfad ab dem Root
 
Dim pSocket As Long
Dim res As Long
Const cMyServer = "ftp.guarda-cuolms.ch"
 
pSocket = ftpConnect(cMyServer, "benutzername", "passwort")
If pSocket > 0 Then
  'OK: Verbindung geöffnet
  ftpSetAscii (pSocket)    
  res = ftpGetLastStatusCode()
  If res = 200 Then
    'OK
    res = ftpPutFile(pSocket, cMyServer, 0, "/public/index.html", _
      "C:\MyProject\index.html")
    If res=1 Then
      'OK
      ftpQuit (pSocket)
      res = ftpGetLastStatusCode()
      If res = 221 Then
        'OK
      ElseIf res = 0 Then
        'nach ca. 45s
        MsgBox "Problem bei FTP-Upload (ftpQuit): " & pSocket & "(keine" & _
          "Verbindung zu Server)"
      Else
        MsgBox "Problem bei FTP-Upload (ftpQuit)" & pSocket & "(unbekanntes" & _
          "Problem)"
      End If
    ElseIf res = 0 Then
      'nach ca. 120s
      MsgBox "Problem bei FTP-Upload (ftpPutFile): " & res & "(keine Verbindung" & _
        "zu Server)"
    Else
      MsgBox "Problem bei FTP-Upload (ftpPutFile): " & res & "(unbekanntes" & _
        "Problem)"
    End If
  ElseIf res = 0 Then
    'Timeout nach 60s
    MsgBox "Problem bei FTP-Upload (ftpSetAscii): " & res & "(keine Verbindung" & _
      "zu Server)"
  Else
    MsgBox "Problem bei FTP-Upload (ftpSetAscii): " & res & "(unbekanntes" & _
      "Problem)"
  End If
ElseIf pSocket = -2147483648# Then
  'nach ca 15s
  MsgBox "Problem bei FTP-Upload FTP-Upload (ftpConnect): " & pSocket & "(keine" & _
    "Verbindung zu Server)"
Else
  MsgBox "Problem bei FTP-Upload (ftpConnect)" & pSocket & "(unbekanntes" & _
    "Problem)"
End If
 
End Sub