FTP via Excel/VBA

Function FTP_Upload_File(QuellDatei As String, ZielDatei As String, FTPServer As String, FTPBenutzer As String, FTPKennwort As String) As Long
Dim FTP             As Inet
Dim ExecString      As String
On Local Error GoTo FuncExit
' Verbindungsaufbau
Set FTP = New Inet
With FTP
.Protocol = icFTP
.RemoteHost = FTPServer
.UserName = FTPBenutzer
.Password = FTPKennwort
' Upload
ExecString = "put " & Chr(34) & QuellDatei & Chr(34) & " " & Chr(34) & ZielDatei & Chr(34)
.Execute .Url, ExecString
Do While .StillExecuting
DoEvents
Loop
End With
FuncExit:
FTP_Upload_File = FTP.ResponseCode
Set FTP = Nothing
End Function

Response = FTP_Upload_File("C:\XXX\Datei.csv", "Datei.csv", "ftp.000.000.000.00", "Benutzer", "PW")