; 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

Global Const $Groesen = StringSplit("KB|MB|GB|TB|?|", "|")

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))

ToolTip("File Name.: " & IniRead(@ScriptDir & "\test.ini", "Namen", $i, Default) & @CRLF & "Download Grösse.: " & _FormatFileSize(InetGetSize(IniRead(@ScriptDir & "\test.ini", "Download", $i, Default))))
InetGet( IniRead(@ScriptDir & "\test.ini", "Download", $i, Default), @ScriptDir & "\" & IniRead(@ScriptDir & "\test.ini", "Namen", $i, Default))
Next

FileDelete(@ScriptDir & "\test.ini")

#cs
****************************************************************************************
****************************************************************************************
****************************************************************************************
********                                                                        ********
********                                                                        ********
********    Dies ist ein  _Urllink downloader mit kontrolle                        ********
********    Copyright: Jam00 (www.autoit.de)                                     ********
********                                                                        ********
********                                                                        ********
********    Es läuft zu 100% auf Windows XP                                        ********
********    Es läuft zu 000% auf Windows Vista (wurde noch nicht getestet)      ********
********    Es läuft zu 100% auf Windows 07    x64 7201                            ********
********    Alle anderen Windows Versionen sind nicht getestet!                    ********
********                                                                        ********
********    Mit freundlicher Mithilfe von www.autoit.de                            ********
********    Danke an alle die mir mit diesem Projekt geholfen haben.            ********
********                                                                        ********
********    Bei Fragen oder Problemen, schreib mir eine PN im Forum.            ********
********                                                                        ********
********                                                                        ********
****************************************************************************************
****************************************************************************************
****************************************************************************************
#ce

Func _FormatFileSize($sFunc_Size)
    Local $i = 0
    While $sFunc_Size > 1000
        $sFunc_Size /= 1024
        $i+=1
    WEnd
    If $i > 4 Then $i = 4
    Return Round ($sFunc_Size,2) & " " & $Groesen[$i]
EndFunc   ;==>_FormatFileSize