#include <WinINet.au3>
#include <file.au3>

Global $IniFile = @ScriptDir & "\ftpserver.txt"
Global $DirStart[2] = ["", "C:\Dokumente und Einstellungen\all user\Desktop\AutoIT\Akutell\TestDateiMusic.mp3"] 
Global $DirZiel[2] = ["", "/images/TestDateiMusic.mp3"]
Dim $aRecords

_FileReadToArray("ftpserver.txt", $aRecords)
For $x = 1 To $aRecords[0]
    server($aRecords[$x])
Next

Func ftpfutros($server)
Dim $user = "ftpuser"
Dim $pwd = "password"
;Dim $server = "10.1.1.99"
Dim $port = 21
Dim $searchfile = "/images/TestDateiMusic.mp3"	
	
;WinINet Starten
_WinINet_Startup()
;Verbindung öffnen
$InternetOpen = _WinINet_InternetOpen()
;Verbindung herstellen
$InternetConnect = _WinINet_InternetConnect($InternetOpen, $INTERNET_SERVICE_FTP, $server, $port, 0, $user, $pwd)
;Suchen
$searchresult = _WinINet_FtpFindFirstFile($InternetConnect,$searchfile)
;Datei hochladen
_WinINet_FtpPutFile($InternetConnect, "TestDateiMusic.mp3", $searchfile)
	
;Verbindung schliessen
_WinINet_InternetCloseHandle($InternetConnect)
_WinINet_InternetCloseHandle($InternetOpen)
;WinINet runterfahren
_WinINet_Shutdown()
EndFunc