ArrayProblem oder nicht?

Func _mail();==> Outlook Erfolgreich/Error
Dim $aRecords, $zeiten, $inhalt, $FileList
$Txt = "c:\Datensicherung\Timer.prob"
;
_FileReadToArray($Txt, $aRecords);==> Inhalt der Timer.prob
;
$FileList = _FileListToArray("c:\Datensicherung\", "*.fbk", 1);==> Pfadinhalt
;
$Outlook2003 = @ProgramFilesDir & "\Microsoft Office\Office11\Outlook.exe"
$PID = ProcessExists("Outlook.exe")
$Addresse = "c:\Datensicherung\"
$Ti = @HOUR & ":" & @MIN & ":" & @SEC
$Address= ("xx@xx.de")
$Subject= ("Tägliche Datensicherung vom " & _NowDate())
;
For $i = 1 To $aRecords[0];==> Beginn der ersten Schleife für Timer.prob
$zeiten &= $aRecords[$i] & @LF
Next
;
For $i = 1 To $FileList[0];==> Beginn der zweiten Schleife für Pfadinhalt
$inhalt &= $FileList[$i] & @LF
Next
;==> Ertsellung des E-Mail Body für Erfolg
$Body = ("Die Tägliche Datensicherung wurde um " & $Ti & " erfolgreich erstellt." & @LF & @LF & _
"Im Pfad " & $Addresse & " wurden folgende Dateien angelegt:" & @LF & _
$inhalt & @LF & _
"Die Laufzeiten der einzelnen Scripte betrugen:" & @LF & @LF & $zeiten & @LF & @LF & _
"Freundliche Grüße" & @LF & @LF & " Administrator")
;==> Ertsellung des E-Mail Body für Misserfolg
$Body_err = ("Die Tägliche Datensicherung wurde um " & $Ti & " erfolgreich erstellt." & @LF & @LF & _
"Im Pfad " & $Addresse & " wurden folgende Dateien angelegt:" & @LF & _
$inhalt & @LF & _
"Die Laufzeiten der einzelnen Scripte betrugen:" & @LF & @LF & $zeiten & @LF & @LF & _
"Freundliche Grüße" & @LF & @LF & " Administrator")
;
If FileExists("T:\Datensicherung\") Then; ==> Misserfolg
If $PID Then
_INetMail($address, $subject, $Body_err)
Sleep(5000)
Send("!s")
Else
Run($Outlook2003)
WinWaitActive("Posteingang - Microsoft Outlook")
_INetMail($address, $subject, $Body_err)
Sleep(5000)
Send("!s")
Sleep(1500)
Send("!{F4}")
EndIf
Else ;==> Erfolg
If $PID Then
_INetMail($address, $subject, $Body)
Sleep(5000)
Send("!s")
Else
Run($Outlook2003)
WinWaitActive("Posteingang - Microsoft Outlook")
_INetMail($address, $subject, $Body)
Sleep(5000)
Send("!s")
Sleep(1500)
Send("!{F4}")
EndIf
EndIf
EndFunc

Tagesrohdaten von BT wurden nicht gefunden.
Tagesrohdaten von Verizon wurden nicht gefunden.
Tagesrohdaten von QSC f2z wurden nicht gefunden.
Tagesrohdaten von QSC f3y wurden nicht gefunden.
Tagesrohdaten wurden in 0.0333336173545334 Minuten erzeugt
Die Löschung der alten CDR's & EVN's dauerte 5.26137632948694e-007 Minuten
Die Datensicherung wurde in 0.0165667005164064 Minuten erstellt

Die Tägliche Datensicherung wurde um 14:57:22 erfolgreich erstellt.

Im Pfad c:\Datensicherung\ wurden folgende Dateien angelegt:
adtg.fbk
adtg2.fbk
adtg3.fbk

Die Laufzeiten der einzelnen Scripte betrugen:

Tagesrohdaten von BT wurden nicht gefunden.
Tagesrohdaten von Verizon wurden nicht gefunden.
Tagesrohdaten von QSC f2z wurden nicht gefunden.
Tagesrohdaten von QSC f3y wurden nicht gefunden.
Tagesrohdaten wurden in 0.0333336173545334 Minuten erzeugt
Die Löschung der alten CDR's