Public Function FTPupload()
 
Private mServer As String
Private mUser As String
Private mPassword As String
Private mSocket As Long
Dim strFTPDir As String
Dim strSourceFile As String
strSourceFile = "c:\temp\test.txt"
strFTPDir  = "ftp...."
 
    mSocket= ftpConnect(mServer, mUser, mPassword)
    If mSocket < 1 Then
        CallMsgBox "Kein Verbindungsaufbau zum FTP Server möglich. Fehler: " + _
          CStr(ftpGetLastStatusCode()) & " - " & ftpGetLastStatusMsg()
        Exit Function
    End If
    ftpSetBinary (mSocket)
 
    Dim strFileName As String
    strFileName = ffGetFileFromPath(strSourceFile)
    Dim res As Long
    res = ftpPutFile(mSocket, mServer, 0, strFTPDir + "/" + strFileName, _
      strSourceFile)
    If Not res = 1 Then
        CallMsgBox "FTP Transfer von " + UCase(strSourceFile) + " ist" & _
          "fehlgeschlagen! - " & _
            "Fehler: " + CStr(ftpGetLastStatusCode()) & " - " & _
            ftpGetLastStatusMsg()
        Exit Function
    End If
    ftpQuit (pSocket)
End Function

Christian Rettenbacher
Softwaredevelopement

EMCO Maier Ges.m.b.H.
Salzburger Strasse 80
5400 Hallein/Austria
Tel +43-62 45-8 91-516
Fax +43-62 45-86965
www.emco.at