Daten (TXT File) in einem Excel Sheet speichern

[autoit]

#include <Date.au3>
#include <_sendmail.au3>

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

Global $root = IniRead(@ScriptDir & "\Export.ini", "PFADE", "root", "keine Pfad konfiguriert")
Global $MAN = IniRead(@ScriptDir & "\Export.ini", "MANDANT", "MAN", "keine Pfad konfiguriert")
Global $JACDAT = IniRead(@ScriptDir & "\Export.ini", "PFADE", "JACDAT", "keine Pfad konfiguriert")

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

FileDelete(@ScriptDir & "\DirDaten.txt")
$file = FileOpen(@ScriptDir & "\DirDaten.txt", 1)
; Check if file opened for writing OK
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
SplashTextOn("", "Verzeichnissgrößen werden ermittelt und per Mail an die Kst. 93130 versendet ", 400, 50)
FileWrite($file, "Informationen vom " &@MDAY & "." & @MON & "." &@YEAR & @CRLF)
FileWrite($file, "Der " & @YDAY & ". Tag anno " & @YEAR & @CRLF)
FileWrite($file, ";------------------------------" & @CRLF)
;-----------------------------------------------------------------------------------------------------------------
$timer = TimerInit()
$size = DirGetSize($JACDAT, 1)
$diff = Round(TimerDiff($timer) / 1000) ; time in seconds
If IsArray($size) Then
FileWrite($file, "JackDat Verzeichniss Größe" & @CRLF)
FileWrite($file, "Größe: " & Round($size[0] / 1024 / 1024 / 1024, 2) & " GB" & @CRLF)
FileWrite($file, "Größe: " & Round($size[0], 2) & " byte" & @CRLF)
FileWrite($file, "Files: " & $size[1] & @CRLF)
EndIf
;-----------------------------------------------------------------------------------------------------------------
$varD = DriveSpaceFree($root)
FileWrite($file, ";------------------------------" & @CRLF)
FileWrite($file, "Größe (" & $root & ") :" & Round($varD / 1024, 2) & " GB noch frei" & @CRLF)
;-----------------------------------------------------------------------------------------------------------------
$timer = TimerInit()
$sizeD = DirGetSize($JACDAT & "\Belegarchiv\" & StringTrimLeft(@YEAR, 2) & @MON, 1)
$diff = Round(TimerDiff($timer) / 1000) ; time in seconds
If IsArray($sizeD) Then
FileWrite($file, ";------------------------------" & @CRLF)
FileWrite($file, "BelegArchiv " & @MON & " / " & StringTrimLeft(@YEAR, 2) & @CRLF)
FileWrite($file, "Verzeichniss Größe : " & Round($sizeD[0] / 1024 / 1024, 2) & " MB" & @CRLF)
FileWrite($file, "Files: " & $sizeD[1] & @CRLF)
FileWrite($file, "Dirs: " & $sizeD[2] & @CRLF)
EndIf
;-----------------------------------------------------------------------------------------------------------------
$timer = TimerInit()
$sizeD = DirGetSize($JACDAT & "\Belegarchiv\" & StringTrimLeft(@YEAR, 2) & "0"& (@MON - 1), 1)
$diff = Round(TimerDiff($timer) / 1000) ; time in seconds
If IsArray($sizeD) Then
FileWrite($file, ";------------------------------" & @CRLF)
FileWrite($file, "BelegArchiv Vormonat " & "0"& (@MON - 1) & " / " & StringTrimLeft(@YEAR, 2) & @CRLF)
FileWrite($file, "Verzeichniss Größe Vormonat: " & Round($sizeD[0] / 1024 / 1024, 2) & " MB" & @CRLF)
FileWrite($file, "Files: " & $sizeD[1] & @CRLF)
FileWrite($file, "Dirs: " & $sizeD[2] & @CRLF)
EndIf
FileClose($file)
$file = FileOpen(@ScriptDir & "\DirDaten.txt", 0)
; Check if file opened for reading OK
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
$dat = FileRead($file)
_sendmail ("Verzeichnisgrößen Jack (Mandant: " & $MAN & ") vom " & _Now(), $dat)
FileClose($file)
SplashOff()

[/autoit]

Informationen vom 10.04.2007
Der 100. Tag anno 2007
;------------------------------
JackDat Verzeichniss Größe
Größe: 26.48 GB
Größe: 28434360752 byte
Files: 1984094
;------------------------------
Größe (D: ) :14.57 GB noch frei
;------------------------------
BelegArchiv 04 / 07
Verzeichniss Größe : 77.75 MB
Files: 16309
Dirs: 0
;------------------------------
BelegArchiv Vormonat 03 / 07
Verzeichniss Größe Vormonat: 396.56 MB
Files: 82375
Dirs: 0