; Idee http://www.autoit.de/index.php?page=Thread&threadID=19971&highlight=FileReadLine
#include <file.au3>
Dim $aRecords
If Not _FileReadToArray(@ScriptDir & "\download.ini",$aRecords) Then
   ;MsgBox(4096,"Error", " Error reading log to Array     error:" & @error)
   Exit
EndIf

For $x = 1 to $aRecords[0]
    ;Msgbox(0,'Record:' & $x, $aRecords[$x])
    IniWrite(@ScriptDir & "\test.ini", "Download", $x, $aRecords[$x])
    $Test =StringSplit($aRecords[$x], "/")
    IniWrite(@ScriptDir & "\test.ini", "Namen", $x, $Test[$test[0]])
Next
IniWrite(@ScriptDir & "\test.ini", "zahl", "Key", $aRecords[0])


For $x = 1 to $aRecords[0]
$var = IniRead(@ScriptDir & "\test.ini","Download", $x, Default)
;MsgBox(4096, "Result", $var)
Next

Dim $File[IniRead(@ScriptDir & "\test.ini","Zahl", "key", Default)] = [IniRead(@ScriptDir & "\test.ini","Download",Default, Default)]
Dim $Filename[IniRead(@ScriptDir & "\test.ini","Zahl", "key", Default)] = [IniRead(@ScriptDir & "\test.ini","Download",Default, Default)]

For $i= 1 To IniRead(@ScriptDir & "\test.ini","Zahl", "key", Default)
;MsgBox(4096, "inet",IniRead(@ScriptDir & "\test.ini", "Download", $i, Default))    
If FileExists(@DesktopDir & "\" & "old_"& IniRead(@ScriptDir & "\test.ini", "Namen", $i, Default)) Then FileDelete(@ScriptDir & "\" & "old_"& IniRead(@ScriptDir & "\test.ini", "Namen", $i, Default))
If FileExists(@ScriptDir & "\" & IniRead(@ScriptDir & "\test.ini", "Namen", $i, Default)) Then FileMove(@ScriptDir & "\" & IniRead(@ScriptDir & "\test.ini", "Namen", $i, Default), @ScriptDir & "\" & "old_"& IniRead(@ScriptDir & "\test.ini", "Namen", $i, Default))
InetGet(IniRead(@ScriptDir & "\test.ini", "Download", $i, Default), @ScriptDir & "\" & IniRead(@ScriptDir & "\test.ini", "Namen", $i, Default))
Next
FileDelete(@ScriptDir & "\test.ini")