Ich habe ein kleines Problem an dem ich hängen geblieben bin..
Und zwar habe ich ein Programm, mit dem man eine Datei oder mehrere Dateien hochladen kann.
Jenachdem ob man anhakt "eine hochladen" oder "mehrere" hochladen wird entsprechend verfahren.
Jetzt hab ich aber das Problem das der beim hochladen mehrerer Files nur die erste hochläd, alle weiteren jedoch nicht.
Wenn ich nach und nach einzelne hochlade geht dies einwandfrei.
Hier mal etwas Code:
[autoit]
Func _send()
;search for sub dir
$server_path = GUICtrlRead( $input_server )
$slash_pos = StringInStr( $server_path, "/" )
If $slash_pos = 0 Then
$slash_pos = StringLen( $server_path )
$just_server =StringLeft( $server_path, $slash_pos )
Else
$just_server =StringLeft( $server_path, $slash_pos - 1 )
EndIf
$ext_path = StringTrimLeft( $server_path, $slash_pos )
If Not $ext_path = "" then $ext_path &= "/"
$ftp_con = _FTPOpen( "ftp_con" )
$con = _FTPConnect( $ftp_con, $just_server, GUICtrlRead( $input_user ), GUICtrlRead( $input_pw ) )
If GUICtrlRead( $multiple_upload ) = 4 then
; Ein Single Upload
_PathSplit( GUICtrlRead( $input_single_file ), $drive, $dir, $name, $ext )
$ftp = _FtpPutFile( $con, GUICtrlRead( $input_single_file ), "/" & $ext_path & $name & $ext )
If $ftp = 1 Then GUICtrlSetData( $input_single_file, "" )
Else;If GUICtrlRead( $multiple_upload ) = 1 And $upload = True then
; Ist ein Multi Upload
$multi_files = GuiCtrlRead( $input_multiple_files )
$array_multi_files = StringSplit( $multi_files, @CR )
Dim $part_send = "", $all_send = ""
For $act_file = 1 To UBound( $array_multi_files ) - 2
_PathSplit( $array_multi_files[ $act_file ], $drive, $dir, $name, $ext )
;~ ConsoleWrite( $array_multi_files[ $act_file ] & " auf " & "/" & $ext_path & $name & $ext & @CRLF )
$ftp = _FtpPutFile( $con, $array_multi_files[ $act_file ], "/" & $ext_path & $name & $ext )
;~ ConsoleWrite( "Server:"&$just_server & " ,User:"&GUICtrlRead( $input_user ) & " ,Pw:"&GUICtrlRead( $input_pw ) & @CRLF )
;~ ConsoleWrite( "ftp://" & GUICtrlRead( $input_user ) & ":" & GUICtrlRead( $input_pw ) & "@" & $just_server & "/" & $ext_path & $name & $ext & @CRLF )
;~ ConsoleWrite( "FTP:"&$ftp & " ,Con:" &$con & " ,open:"&$ftp_con & " ,part_send:"&$part_send & " ,all_send:"&$all_send & " ,act_file:"&$act_file & @CRLF )
Next
$ftp_close = _FTPClose( $ftp_con )
EndFunc
( Hab ich ein wenig gekürzt )
Jmd ne Idee?