Hallo Leute ich hab ein Projekt amlaufen wo ich ein AutoIT Programm schreibe das überprüft ob in einem Ordner PDF Dateien liegen wenn ja verschiebt er sie in einen unterordner und druckt sie dann aus.
das ganze sieht bei mir imoment so aus.
Code
#Include <File.au3>
#Include <Array.au3> ;Wird benötigt für _ArrayDisplay
$ordner = IniRead(@ScriptDir & "\Konfiguration.ini", "PDF Druck", "PDF", "0") ;Ordnerpfad aus der Konfigurationsdatei ini lesen
$drucker = IniRead(@ScriptDir & "\Konfiguration.ini", "Drucker auslesen", "Drucker", "0") ;Drucker aus der Konfigurationsdatei lesen
$intervall = IniRead(@ScriptDir & "\Konfiguration.ini", "Prüfintervall", "Intervall", "0") ;Die Sleepintervallzeit aus der Konfigurationsdatei auslesen
$aufbewahrung = IniRead(@ScriptDir & "\Konfiguration.ini", "Dateiaufbewahrung", "Dateiaufbewahrung", "0") ;Die Datei Aufbewahrungszeit aus der Konfigurationsdatei auselesen
$unterordner = IniRead(@ScriptDir & "\Konfiguration.ini", "Temporärer Ordner", "Temporärer Ordner", "0"); Die Pfad angabe zum Ordner woraus später gedruckt wird
$zeitstempel = 20000101000000 ;variable Deklariert mit dem datum 01.01.2000 00:00:00
While 1
$FileList=_FileListToArray ($ordner , "*.pdf", 1) ;Dateien im Ordner in ein 1 Dimensonales Array schreiben
If @Error =0 Then
_ArraySort($FileList, 0, 1) ;Dateien nach dem Ältesten zu erst im Array sortieren
;_ArrayDisplay($FileList,"PDF Dateien")
FileMove ( $ordner & $FileList[1] , $ordner & $unterordner & @YEAR & @MON & @MDAY & @HOUR & @MIN & @SEC & ".pfd", 0 ) ;Älteste Datei in Ordner Wird Gedruckt verschieben und in Akutellen Zeitstempel umbennenen
Run(@ComSpec & " /c " & '"C:/Program Files\Adobe\Reader 9.0\ReaderAcroRd32.exe /t $ordner & $unterordner & $drucker"', "", @SW_SHOW)
EndIf
$neuerzeitstempel = @YEAR & @MON & @MDAY & @HOUR & @MIN & @SEC
If $zeitstempel+1800 < $neuerzeitstempel Then
MsgBox (0 , "Test", "Wahr" & @CRLF & $neuerzeitstempel& @CRLF & $zeitstempel , 2 )
$zeitstempel = @YEAR & @MON & @MDAY & @HOUR & @MIN & @SEC
$alt30 = _FileListToArray ($ordner & $unterordner , "*.pdf", 1 ) ;PDF Dateien im Ordner Wird Gedruckt auflisten in ein Array schreiben
If @Error =0 Then
For $z = 1 to $alt30[0]
If StringLeft($alt30[$z], 14)+1800 < $neuerzeitstempel Then
FileDelete ($ordner & $unterordner & $alt30[$z])
EndIf
Next
EndIf
Else
MsgBox (0 , "Test", "Falsch" & @CRLF & $neuerzeitstempel& @CRLF & $zeitstempel , 2 )
EndIf
Sleep ($intervall) ;Wartezeit von x Sekunden (angabe in der Konfigurationsdatei muss in Millisekunden sein)
WEnd
Alles anzeigen
So nun bräuchte ich hilfe bei der Zeile 17 mit dem Adobe Reader es klappt bei mir einfach nich das er mir Dateien ausdruckt
würde mich sehr freuen wenn ihr mir antworten würdet
lg homecomingservice