hab hier auch mal noch ein script gefunden ...
AutoIt
#include <Misc.au3>
#include <FTPEx.au3>
#Include <File.au3>
#Include <Array.au3>
; FTP Download --> SFTP Upload
If Not FileExists (@ScriptDir & "\Temp") Then DirCreate (@ScriptDir & "\Temp")
$Zielpfad = @ScriptDir & "\Temp\"
;-----------FTP--------------
$server = '192.x.x.x'
$username = 'user'
$pass = 'pwd'
$path = '/'
$Open = _FTP_Open('server')
$Conn = _FTP_Connect($Open, $server, $username, $pass, true)
;MsgBox(0,"",$Conn)
$setdir = _Ftp_DirSetCurrent($Conn, $path)
;MsgBox(0,"set dir",$setdir)
;$Dirlist = _FTPFilesListToArray($Conn, 1)
;_ArrayDisplay($Dirlist, 'Directorys List')
$Dirlist = _FTP_ListToArray2D($Conn, 0)
;MsgBox(0,"files vorhanden?",$Dirlist[0])
;_ArrayDisplay($Dirlist, 'File List')
If $Dirlist[0][0] = 0 Then
MsgBox(0,"", "keine Files vorhanden",1)
Exit
Else
For $i = 1 To $Dirlist[0][0]
MsgBox(0,"files ++++",$Dirlist[$i][0])
IF $Dirlist[$i][1] = 0 Then ;prüfung auf fehler
;MsgBox(0,"files ++++",$Dirlist[$i][1])
Else
_Download_Del()
EndIf
Next
EndIf
_FTP_Close($Open)
Func _Download_Del()
_FTP_FileGet($Conn, $Dirlist[$i][0], $Zielpfad & $Dirlist[$i][0]) ; lädt file vom ftp server
Sleep(1000)
_FTP_FileDelete($Conn, $Dirlist[$i][0]) ; löscht file vom ftp server
EndFunc
Alles anzeigen