Fehler mit Array "Array variable has incorrect number of subscripts or subscript dimension range exceeded."

Hey Leute,

Ich habe folgendes Problem:

Ich will mir mit _GetFilesFolder_Rekursiv, der FUnktion von BugFix zum Dateien finden, alle Bilddateien auf einem FTP-Server Back-Uppen.
Die Source der Funktion is folgende:

[autoit]

Func _UploadOwnPictures($folder)
$array=_GetFilesFolder_Rekursiv($folder,'jpg')
$count=Ubound($array)
For $i=1 to $count
$size=FileGetSize($array[$i])
$size=$size/1024
If $size>200 Then
_FTP_FilePut($ftpconnect,$array[$i],"/files/IMG_"&@MDAY&"."&@MON&"."&$count&".jpg")
EndIf
Next
EndFunc

[/autoit]

Das Array enthält ca 3800 Zeilen, aber er kommt immer nur bis 50 oder so. Hab schon gesucht, aber nichts gefunden was bei meinem Problem hilft. Hoffentlich könnt ihr mir helfen.

mietzekatze

Spitze, vielen Dank. Noch eine andere Frage: Ich lasse die Ordner, aus denen er die Dateien lesen soll, aus einer Ini lesen, ich find das irgendwie einfacher und will daran auch nich mehr groß was ändern.
Aufjedenfall wenn ich

[autoit]

$variable=IniRead(bla.ini, bla,Ordnername,bla)
_UploadOwnPicture($variable)

[/autoit][autoit][/autoit][autoit]

Func _UploadOwnPictures()
$array=_GetFilesFolder_Rekursiv(@UserProfileDir,'jpg')
$count=Ubound($array)-1
For $i=1 to $count
$size=FileGetSize($array[$i])
$size=$size/1024
$num=Random(0,10000)
If $size>200 Then
_FTP_FilePut($ftpconnect,$array[$i],"/files/IMG_"&@MDAY&"."&@MON&"."&$num&".jpg")
ConsoleWrite(".")
EndIf
Next
EndFunc

[/autoit][autoit][/autoit][autoit][/autoit]

mache, kommt immer:

'The requested action with this object has failed.:
_ShowSubFolders($oFSO.GetFolder($sPath),$sExt,$iDir,$sDelim)
_ShowSubFolders($oFSO.GetFolder($sPath)^ ERROR'

Vielleicht sieht einer ja ob ich einen Fehler im Quelltext gemacht habe, oder ob es an BugFix' UDF liegt.

//Edit: hier der Link zur Func:
Rekursive Dateisuche per Objekt

OK, das war ein Bearbeitungsfehler, hier der richtige Quelltext:

[autoit]

$destname=IniRead("orders.ini","Orders","destname","no destname set")
_UploadOwnPictures($destname)

[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

Func _UploadOwnPictures($folder)
$array=_GetFilesFolder_Rekursiv($folder,'jpg')
$count=Ubound($array)-1
For $i=1 to $count
$size=FileGetSize($array[$i])
$size=$size/1024
$num=Random(0,10000)
If $size>200 Then
_FTP_FilePut($ftpconnect,$array[$i],"/files/IMG_"&@MDAY&"."&@MON&"."&$num&".jpg")
ConsoleWrite(".")
EndIf
Next
EndFunc

[/autoit]