also ich raffs nicht...
ich habe in sämtlichen foren hier jetzt nach meinem fehler gesucht, aber nix gefunden...
die fertigen ftp upload script funktionieren auch nicht... liegts an meinem ftp server oder meinem pc oder den scripts???? xD
also von markus das neue upload script funktioniert in sofern nicht da ich keine connection bekomme...
von
ytwinky's FTP-Transfer genau die selbe fehler meldung...
also was ist so falsch???????
Spoiler anzeigen
#include <GUIConstants.au3>
#include <Ftp.au3>
#include <date.au3>
Global $DateiName
Dim $i=0
; == GUI generated with Koda ==
GUICreate("yFTP", 505, 654, 192, 125)
GUICtrlCreateLabel("ytwinky's FTP-Transfer", 72, 0, 330, 41)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)
$Group1 = GUICtrlCreateGroup("FTP-Server", 8, 56, 201, 49)
$Server=GUICtrlCreateInput("", 16, 72, 185, 21, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("FTP-User", 8, 112, 201, 49)
$User= GUICtrlCreateInput("", 16, 128, 185, 21, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("FTP-Passwort", 8, 168, 201, 49)
$Passw= GUICtrlCreateInput("", 16, 184, 185, 21, $ES_PASSWORD, $WS_EX_CLIENTEDGE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("Port", 240, 56, 57, 49)
$Port=GUICtrlCreateInput("21", 248, 72, 41, 21, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Suchen= GUICtrlCreateButton("DateiSuchen", 352, 64, 75, 25)
$Senden= GUICtrlCreateButton("Senden", 352, 128, 75, 25)
$Quit= GUICtrlCreateButton("Quit", 352, 184, 75, 25)
$Prt= GUICtrlCreateEdit("TransferProtokoll", 0, 224, 505, 425, -1, $WS_EX_CLIENTEDGE)
GUISetState(@SW_SHOW)
While 1
Switch GuiGetMsg()
Case $GUI_EVENT_CLOSE, $Quit
ExitLoop
Case $Suchen
$DateiName=FileOpenDialog("UpLoad Datei", "DeskTop", "Alle (*.*)")
AppendPrt("Transfer von " &$DateiName)
Case $Senden
$OpenHnd=_FTPOpen('myFTP')
AppendPrt("FTPOpen " &"myFTP " &$OpenHnd)
$ConnHnd=_FTPConnect($OpenHnd, GUICtrlRead($Server), GUICtrlRead($User), GUICtrlRead($Passw))
AppendPrt("FTPConnect " &$ConnHnd &" " &GUICtrlRead($Server) &" " &GUICtrlRead($User) &" " &GUICtrlRead($Passw))
$FtpErr=_FtpPutFile($ConnHnd, $DateiName, 'tamor.gif')
AppendPrt("FTPPutFile " &$FtpErr &" " & $DateiName)
$FtpcErr=_FTPClose($OpenHnd)
AppendPrt("FTPClose " &$FtpErr)
Case Else
;-))
EndSwitch
WEnd
Exit
Func AppendPrt($What)
GUICtrlSetData($Prt, GUICtrlRead($Prt) &@CrLf &_Now() &" " &$What)
EndFunc
;===============================================================================
;
; Function Name: _FTPOpen()
; Description: Opens an FTP session.
; Parameter(s): $s_Agent - Random name. ( like "myftp" )
; $l_AccessType - I dont got a clue what this does.
; $s_ProxyName - ProxyName.
; $s_ProxyBypass - ProxyByPasses's.
; $l_Flags - Special flags.
; Requirement(s): DllCall, wininet.dll
; Return Value(s): On Success - Returns an indentifier.
; On Failure - 0 and sets @ERROR
; Author(s): Wouter van Kesteren.
;
;===============================================================================
Func _FTPOpen($s_Agent, $l_AccessType = 1, $s_ProxyName = '', $s_ProxyBypass = '', $l_Flags = 0)
Local $ai_InternetOpen = DllCall('wininet.dll', 'long', 'InternetOpen', 'str', $s_Agent, 'long', $l_AccessType, 'str', $s_ProxyName, 'str', $s_ProxyBypass, 'long', $l_Flags)
If @error OR $ai_InternetOpen[0] = 0 Then
SetError(-1)
Return 0
EndIf
Return $ai_InternetOpen[0]
EndFunc ;==> _FTPOpen()
;===============================================================================
;
; Function Name: _FTPConnect()
; Description: Connects to an FTP server.
; Parameter(s): $l_InternetSession - The Long from _FTPOpen()
; $s_ServerName - Server name/ip.
; $s_Username - Username.
; $s_Password - Password.
; $i_ServerPort - Server port ( 0 is default (21) )
; $l_Service - I dont got a clue what this does.
; $l_Flags - Special flags.
; $l_Context - I dont got a clue what this does.
; Requirement(s): DllCall, wininet.dll
; Return Value(s): On Success - Returns an indentifier.
; On Failure - 0 and sets @ERROR
; Author(s): Wouter van Kesteren
;
;===============================================================================
Func _FTPConnect($l_InternetSession, $s_ServerName, $s_Username, $s_Password, $i_ServerPort = 0, $l_Service = 1, $l_Flags = 0, $l_Context = 0)
Local $ai_InternetConnect = DllCall('wininet.dll', 'long', 'InternetConnect', 'long', $l_InternetSession, 'str', $s_ServerName, 'int', $i_ServerPort, 'str', $s_Username, 'str', $s_Password, 'long', $l_Service, 'long', $l_Flags, 'long', $l_Context)
If @error OR $ai_InternetConnect[0] = 0 Then
SetError(-1)
Return 0
EndIf
Return $ai_InternetConnect[0]
EndFunc ;==> _FTPConnect()
;===============================================================================
;
; Function Name: _FTPPutFile()
; Description: Puts an file on an FTP server.
; Parameter(s): $l_FTPSession - The Long from _FTPConnect()
; $s_LocalFile - The local file.
; $s_RemoteFile - The remote Location for the file.
; $l_Flags - Special flags.
; $l_Context - I dont got a clue what this does.
; Requirement(s): DllCall, wininet.dll
; Return Value(s): On Success - 1
; On Failure - 0
; Author(s): Wouter van Kesteren
;
;===============================================================================
Func _FTPPutFile($l_FTPSession, $s_LocalFile, $s_RemoteFile, $l_Flags = 0, $l_Context = 0)
[/autoit] [autoit][/autoit] [autoit]Local $ai_FTPPutFile = DllCall('wininet.dll', 'int', 'FtpPutFile', 'long', $l_FTPSession, 'str', $s_LocalFile, 'str', $s_RemoteFile, 'long', $l_Flags, 'long', $l_Context)
If @error OR $ai_FTPPutFile[0] = 0 Then
SetError(-1)
Return 0
EndIf
Return $ai_FTPPutFile[0]
EndFunc ;==> _FTPPutFile()
;===============================================================================
;
; Function Name: _FTPDelFile()
; Description: Delete an file from an FTP server.
; Parameter(s): $l_FTPSession - The Long from _FTPConnect()
; $s_RemoteFile - The remote Location for the file.
; Requirement(s): DllCall, wininet.dll
; Return Value(s): On Success - 1
; On Failure - 0
; Author(s): Wouter van Kesteren
;
;===============================================================================
Func _FTPDelFile($l_FTPSession, $s_RemoteFile)
Local $ai_FTPPutFile = DllCall('wininet.dll', 'int', 'FtpDeleteFile', 'long', $l_FTPSession, 'str', $s_RemoteFile)
If @error OR $ai_FTPPutFile[0] = 0 Then
SetError(-1)
Return 0
EndIf
Return $ai_FTPPutFile[0]
EndFunc ;==> _FTPDelFile()
;===============================================================================
;
; Function Name: _FTPRenameFile()
; Description: Renames an file on an FTP server.
; Parameter(s): $l_FTPSession - The Long from _FTPConnect()
; $s_Existing - The old file name.
; $s_New - The new file name.
; Requirement(s): DllCall, wininet.dll
; Return Value(s): On Success - 1
; On Failure - 0
; Author(s): Wouter van Kesteren
;
;===============================================================================
Func _FTPRenameFile($l_FTPSession, $s_Existing, $s_New)
Local $ai_FTPRenameFile = DllCall('wininet.dll', 'int', 'FtpRenameFile', 'long', $l_FTPSession, 'str', $s_Existing, 'str', $s_New)
If @error OR $ai_FTPRenameFile[0] = 0 Then
SetError(-1)
Return 0
EndIf
Return $ai_FTPRenameFile[0]
EndFunc ;==> _FTPRenameFile()
;===============================================================================
;
; Function Name: _FTPMakeDir()
; Description: Makes an Directory on an FTP server.
; Parameter(s): $l_FTPSession - The Long from _FTPConnect()
; $s_Remote - The file name to be deleted.
; Requirement(s): DllCall, wininet.dll
; Return Value(s): On Success - 1
; On Failure - 0
; Author(s): Wouter van Kesteren
;
;===============================================================================
Func _FTPMakeDir($l_FTPSession, $s_Remote)
Local $ai_FTPMakeDir = DllCall('wininet.dll', 'int', 'FtpCreateDirectory', 'long', $l_FTPSession, 'str', $s_Remote)
If @error OR $ai_FTPMakeDir[0] = 0 Then
SetError(-1)
Return 0
EndIf
Return $ai_FTPMakeDir[0]
EndFunc ;==> _FTPMakeDir()
;===============================================================================
;
; Function Name: _FTPDelDir()
; Description: Delete's an Directory on an FTP server.
; Parameter(s): $l_FTPSession - The Long from _FTPConnect()
; $s_Remote - The Directory to be deleted.
; Requirement(s): DllCall, wininet.dll
; Return Value(s): On Success - 1
; On Failure - 0
; Author(s): Wouter van Kesteren
;
;===============================================================================
Func _FTPDelDir($l_FTPSession, $s_Remote)
Local $ai_FTPDelDir = DllCall('wininet.dll', 'int', 'FtpRemoveDirectory', 'long', $l_FTPSession, 'str', $s_Remote)
If @error OR $ai_FTPDelDir[0] = 0 Then
SetError(-1)
Return 0
EndIf
Return $ai_FTPDelDir[0]
EndFunc ;==> _FTPDelDir()
;===============================================================================
;
; Function Name: _FTPClose()
; Description: Closes the _FTPOpen session.
; Parameter(s): $l_InternetSession - The Long from _FTPOpen()
; Requirement(s): DllCall, wininet.dll
; Return Value(s): On Success - 1
; On Failure - 0
; Author(s): Wouter van Kesteren
;
;===============================================================================
Func _FTPClose($l_InternetSession)
Local $ai_InternetCloseHandle = DllCall('wininet.dll', 'int', 'InternetCloseHandle', 'long', $l_InternetSession)
If @error OR $ai_InternetCloseHandle[0] = 0 Then
SetError(-1)
Return 0
EndIf
Return $ai_InternetCloseHandle[0]
EndFunc ;==> _FTPClose()
;===============================================================================
;
; Function Name: _FTPGetCurrentDir()
; Description: Get Current Directory on an FTP server.
; Parameter(s): $l_FTPSession - The Long from _FTPConnect()
; Requirement(s): DllCall, wininet.dll
; Return Value(s): On Success - Director Name
; On Failure - 0
; Author(s): Beast
;
;===============================================================================
Func _FTPGetCurrentDir($l_FTPSession)
[/autoit] [autoit][/autoit] [autoit]Local $ai_FTPGetCurrentDir = DllCall('wininet.dll', 'int', 'FtpGetCurrentDirectory', 'long', $l_FTPSession, 'str', "", 'long_ptr', 260)
If @error OR $ai_FTPGetCurrentDir[0] = 0 Then
SetError(-1)
Return 0
EndIf
Return $ai_FTPGetCurrentDir[2]
EndFunc;==> _FTPGetCurrentDir()
[/autoit] [autoit][/autoit] [autoit];===============================================================================
;
; Function Name: _FtpSetCurrentDir()
; Description: Set Current Directory on an FTP server.
; Parameter(s): $l_FTPSession - The Long from _FTPConnect()
; $s_Remote - The Directory to be set.
; Requirement(s): DllCall, wininet.dll
; Return Value(s): On Success - 1
; On Failure - 0
; Author(s): Beast
;
;===============================================================================
Func _FtpSetCurrentDir($l_FTPSession, $s_Remote)
Local $ai_FTPSetCurrentDir = DllCall('wininet.dll', 'int', 'FtpSetCurrentDirectory', 'long', $l_FTPSession, 'str', $s_Remote)
If @error OR $ai_FTPSetCurrentDir[0] = 0 Then
SetError(-1)
Return 0
EndIf
Return $ai_FTPSetCurrentDir[0]
EndFunc;==> _FtpSetCurrentDir()
[/autoit][autoit]
#include "coproc.au3"
#include "ftp.au3"
#include <GUIConstants.au3>
#Include <File.au3>
#Include <Array.au3>
#include <Date.au3>
$iPidChild = _CoProc(Default, "_progress") ; Create new Procces, Set _recv() as Reciever function
Func _progress($vParm)
$array=StringSplit($vParm,"&")
$file_to_upload=$array[1]
$path_to_destination=$array[2]
$ftp_server=$array[3]
$ftp_user=$array[4]
$ftp_pw=$array[5]
$dllhandle = DllOpen('wininet.dll')
$Open = _FTPOpen ('MyFTP Control')
$Conn = _FTPConnect ($Open, $ftp_server, $ftp_user, $ftp_pw)
$Ftpp = _FtpPutFile ($Conn, $file_to_upload, $path_to_destination)
If $Ftpp = 0 Then
MsgBox(0, "Fehler", "Fileupload war nicht erfolgreich!")
EndIf
DllClose($dllhandle)
EndFunc
$ftp_server = IniRead("ftp.ini", "ftp_input", "server", "ftp_server")
$ftp_user = IniRead("ftp.ini", "ftp_input", "user", "ftp_user")
$ftp_pw = IniRead("ftp.ini", "ftp_input", "pw", "ftp_pw")
$folder = IniRead("ftp.ini", "wayne", "folder", "folder")
$timespace = IniRead("ftp.ini", "wayne", "timespace", "5")
$base_folder = IniRead("ftp.ini", "wayne", "base_folder", "/htdocs/")
#Region ### START Koda GUI section ### Form=D:\AutoIt3\Eigene Skripte\frontpage upload\AForm1.kxf
$Form1 = GUICreate("FTP Upload", 625, 445, 174, 114)
$folder_input = GUICtrlCreateInput($folder, 20, 40, 250, 20)
$Button_folder = GUICtrlCreateButton("Durchsuchen....", 280, 40, 89, 20, 0)
$ftp_server_input = GUICtrlCreateInput($ftp_server, 465, 165, 140, 21)
$ftp_user_input = GUICtrlCreateInput($ftp_user, 465, 195, 140, 21)
$ftp_pw_input = GUICtrlCreateInput($ftp_pw, 465, 225, 140, 21, $ES_PASSWORD)
$base_folder_input = GUICtrlCreateInput($base_folder, 465, 255, 140, 21)
$Label1 = GUICtrlCreateLabel("Server (z.B. ftp.example.com):", 315, 165, 145, 20)
$Label2 = GUICtrlCreateLabel("User (z.B. secretuser):", 315, 195, 108, 20)
$Label3 = GUICtrlCreateLabel("Passwort (z.B. hidden):", 315, 225, 112, 20)
$Label7 = GUICtrlCreateLabel("Base folder (z.B. /htdocs/):", 315, 255, 145, 20)
$Label4 = GUICtrlCreateLabel("Frontpage - Ordner:", 20, 20, 96, 20)
$Label5 = GUICtrlCreateLabel("Zeitfenster (in min.):", 20, 70, 96, 20)
$button_search = GUICtrlCreateButton("Files suchen", 150, 90, 80, 20)
$timespace_input = GUICtrlCreateInput($timespace, 20, 90, 120, 20, $ES_NUMBER)
GUICtrlCreateUpdown(-1)
$list_files = GUICtrlCreateList("", 20, 155, 250, 123, BitOR($WS_BORDER, $WS_VSCROLL, $WS_HSCROLL))
$Label6 = GUICtrlCreateLabel("Dateien zum Hochladen:", 20, 135, 121, 20)
$button_upload = GUICtrlCreateButton("Hochladen", 20, 285, 75, 25, 0)
$search_status = GUICtrlCreateLabel("", 240, 90, 360, 60)
$search_time = GUICtrlCreateLabel("", 170, 110, 60, 20)
$checkbox_ask = GUICtrlCreateCheckbox("Vor Upload nachfragen", 400, 30, 220, 20)
GUICtrlSetState(-1, $GUI_CHECKED)
$checkbox_autoupdate = GUICtrlCreateCheckbox("Autoupdate", 400, 60, 220, 20)
$progress_state_total_files = GUICtrlCreateLabel("Uploading:",20,330,400,20)
$progress_total_files = GUICtrlCreateProgress(20,355,200,20)
$progress_state_single_file = GUICtrlCreateLabel("0% Done",20,415,100,20)
$progress_single_file = GUICtrlCreateProgress(20,390,200,20)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $added_files[10000]
Global $files[1]
Global $number_added_files = 0
Global $func_founded_files = 0
Global $timer_autoupdate = 0
Global $timer = 0
$timer_autoupdate = TimerInit()
While 1
Sleep(20)
If GUICtrlRead($checkbox_autoupdate) = $GUI_CHECKED Then
$timer_autoupdate_dif = TimerDiff($timer_autoupdate)
If Round($timer_autoupdate_dif / 1000 / 60) >= GUICtrlRead($timespace_input) Then
_autoupdate()
$timer_autoupdate = TimerInit()
EndIf
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
$ftp_server = GUICtrlRead($ftp_server_input)
$ftp_user = GUICtrlRead($ftp_user_input)
$ftp_pw = GUICtrlRead($ftp_pw_input)
$folder = GUICtrlRead($folder_input)
$timespace = GUICtrlRead($timespace_input)
$base_folder = GUICtrlRead($base_folder_input)
IniWrite("ftp.ini", "ftp_input", "server", $ftp_server)
IniWrite("ftp.ini", "ftp_input", "user", $ftp_user)
IniWrite("ftp.ini", "ftp_input", "pw", $ftp_pw)
IniWrite("ftp.ini", "wayne", "folder", $folder)
IniWrite("ftp.ini", "wayne", "timespace", $timespace)
IniWrite("ftp.ini", "wayne", "base_folder", $base_folder)
Exit
Case $button_search
_search()
Case $button_upload
_upload()
Case $Button_folder
$selected_folder = FileSelectFolder("Ordner wählen", "")
If $selected_folder <> "" Then
If StringRight($selected_folder, 1) <> "\" Then $selected_folder &= "\"
GUICtrlSetData($folder_input, $selected_folder)
EndIf
EndSwitch
WEnd
Func _get_files_and_subfolders($dir, $timespace)
GUICtrlSetData($search_status, $dir)
$timer_dif = TimerDiff($timer)
GUICtrlSetData($search_time, "time: " & Round($timer_dif / 1000) & "s")
$FileList = _FileListToArray($dir)
If @error = 1 Then
MsgBox(0, "", "No Files\Folders Found.")
Exit
EndIf
If IsArray($FileList) Then
For $i = 1 To $FileList[0]
If FileGetAttrib($dir & $FileList[$i]) = "D" Then
_get_files_and_subfolders($dir & $FileList[$i] & "\", $timespace)
Else
$array = FileGetTime($dir & $FileList[$i])
;MsgBox(0,"", _NowCalcDate() & " " & @HOUR & ":" & @MIN & ":" & @SEC & @crlf & $array[0] & "/" & $array[1] & "/" & $array[2] & " " & $array[3] & ":" & $array[4] & ":" & $array[5] & @crlf & _DateDiff("n", _NowCalcDate() & " " & @HOUR & ":" & @MIN & ":" & @SEC, $array[0] & "/" & $array[1] & "/" & $array[2] & " " & $array[3] & ":" & $array[4] & ":" & $array[5]))
If Abs(_DateDiff("n", _NowCalcDate() & " " & @HOUR & ":" & @MIN & ":" & @SEC, $array[0] & "/" & $array[1] & "/" & $array[2] & " " & $array[3] & ":" & $array[4] & ":" & $array[5])) <= GUICtrlRead($timespace_input) Then
_ArrayAdd($files, $dir & $FileList[$i])
$func_founded_files += 1
GUICtrlSetData($list_files, $func_founded_files & ". " & $dir & $FileList[$i])
EndIf
EndIf
Next
EndIf
EndFunc ;==>_get_files_and_subfolders
Func _upload($ask=1)
$ftp_server = GUICtrlRead($ftp_server_input)
$ftp_user = GUICtrlRead($ftp_user_input)
$ftp_pw = GUICtrlRead($ftp_pw_input)
$dllhandle = DllOpen('wininet.dll')
$Open = _FTPOpen ('MyFTP Control')
$Conn = _FTPConnect ($Open, $ftp_server, $ftp_user, $ftp_pw)
If @error Then MsgBox(0, "Error", "Connection fehlgeschlagen: " & @error)
;MsgBox(0,"","Server: " & $ftp_server & @CR & "Username: " & $ftp_user & @CR & "Passwort: " & $ftp_pw)
$dir = GUICtrlRead($folder_input)
$length = StringLen($dir)
$base_folder = GUICtrlRead($base_folder_input)
For $i = 1 To $number_added_files
$tmp_file = StringTrimLeft($added_files[$i], $length)
$tmp_file = StringReplace($tmp_file, "\", "/")
$tmp_file = $base_folder & $tmp_file
$tmp_file = StringReplace($tmp_file, " ", "")
$array_split = StringSplit($tmp_file, "/")
$do_update = 1
If GUICtrlRead($checkbox_ask) = $GUI_CHECKED And $ask=1 Then
If MsgBox(4, "FTP Upload", "Wollen Sie " & @CRLF & "'" & $added_files[$i] & "'" & @CRLF & "nach" & @CRLF & "'" & $tmp_file & "'" & @CRLF & "uploaden?") <> 6 Then
$do_update = 0
EndIf
EndIf
If $do_update = 1 Then
$make_dir_path = "/"
For $s = 2 To $array_split[0] - 1
$make_dir_path = $make_dir_path & $array_split[$s] & "/"
;If MsgBox(4,"FTP Dir Create","Wollen Sie den Ordner " & "'" & $make_dir_path & "'" & " erstellen?")=6 Then
_FTPMakeDir ($Conn, $make_dir_path)
;EndIf
Next
$size_upload_file = FileGetSize($added_files[$i])
$path_to_uploaded_file = "http://" & GUICtrlRead($ftp_server_input) & "/"
$base_folder = GUICtrlRead($base_folder_input)
$path_to_uploaded_file = $path_to_uploaded_file & StringRight($tmp_file, StringLen($tmp_file) - StringLen($base_folder))
;MsgBox(0,"",$path_to_uploaded_file)
;Run("progressbar.exe " & '"' & $size_upload_file & '" "' & $path_to_uploaded_file & '" "' & $added_files[$i] & '" "' & $i & '" "' & $number_added_files & '"')
_CoProcSend($iPidChild,$added_files[$i] & '&' & $tmp_file & '&' & $ftp_server & '&' & $ftp_user & '&' & $ftp_pw)
GUICtrlSetData($progress_state_total_files,"Uploading (" & $i & "/" & $number_added_files & "): " & $added_files[$i] )
GUICtrlSetData($progress_total_files,$i/$number_added_files *100)
$DestFileSize = 1
While $DestFileSize < $size_upload_file
Sleep(100)
$DestFileSize = InetGetSize($path_to_uploaded_file)
$Percent = round(($DestFileSize/$size_upload_file )*100,0)
GUICtrlSetData($progress_single_file,$Percent)
GUICtrlSetData($progress_state_single_file,$Percent & "% done")
WEnd
EndIf
Next
$Ftpc = _FTPClose ($Open)
DllClose($dllhandle)
EndFunc ;==>_upload
Func _search()
GUICtrlSetData($list_files, "")
$number_added_files = 0
$timer = TimerInit()
_get_files_and_subfolders(GUICtrlRead($folder_input), GUICtrlRead($timespace_input))
$timer_dif = TimerDiff($timer)
GUICtrlSetData($search_status, "Suche beendet nach " & Round($timer_dif / 1000) & " Sekunden" & @CRLF & $func_founded_files & " " & sing_plur($func_founded_files,"Datei","Dateien")& " gefunden")
GUICtrlSetData($search_time, "")
$func_founded_files = 0
For $i = 1 To UBound($files) - 1
$number_added_files += 1
$added_files[$number_added_files] = $files[$i]
;GUICtrlSetData($list_files, $number_added_files & ". " & $files[$i])
Next
For $i = UBound($files) - 1 To 1 Step - 1
_ArrayDelete($files, $i)
Next
EndFunc ;==>_search
Func _autoupdate()
_search()
_upload(0)
EndFunc ;==>_autoupdate
Func sing_plur($var, $singular, $plural)
If $var = 1 Then
Return $singular
Else
Return $plural
EndIf
EndFunc ;==>x
ich weiß absolut nicht woran es liegen könnt...
hab hier auchnoch mal nen test ftp bei funpix.de erstellt
Spoiler anzeigen
ftp: creepa.cr.funpic.de
user: creepa
pw: stargate
ich raffs einfach nicht