Hi Leute,
Ihr werdet mich steinigen wollen aber ich komme einfach nicht weiter und bin ziemlich frustriert. Warscheinlich sehe ich den Wald vor lauter Bäumen nicht mehr.
Bin gerade mir Scripten etc. am beibringen, leider habe ich damit keinerlei Erfahrung soll das aber trotzdem lösen Da ich aber lernfähig bin ist das ja alles kein Problem
Habe hier im Forum bereits einen Code für mein Problem gefunden und ihn angepasst. Der Original-Code war von chip hier im Forum.
Das ganze soll in einem Ordner automatisch PDF´s erkennen und verschieben und dabei drucken.
[autoit]
$ordner = "blablablal\Desktop\PDF Ablauf\Neu"
$archiv = "blablabla\Desktop\PDF Ablauf\Archiv"
$foxit = "C:\Programme\Foxit Software\Foxit Reader\Foxit Reader.exe"
$Zeile = "Ich kam bis Zeile"
MsgBox(64, "Hallo", $Zeile & "7 Anfang")
[/autoit][autoit][/autoit][autoit][/autoit][autoit]While 1
MsgBox(64, "Hallo", $Zeile & "11 in WhileSchleife")
Sleep(1000)
$file = FileFindFirstFile($ordner & "*.pdf")
If $file <> -1 Then Print()
FileClose($file)
WEnd
MsgBox(64, "Hallo", $Zeile & "18 Mitte")
[/autoit][autoit][/autoit][autoit]Func Print()
While 1
MsgBox(64, "Hallo", $Zeile & "22 in Function")
$pdffile = FileFindNextFile($file)
$neuname = @YEAR & @MON & @MDAY & @HOUR & @MIN & @SEC & @MSEC
If @error Then ExitLoop
FileMove($ordner & $pdffile, $archiv & $neuname & ".pdf")
While 1
Sleep(100)
If FileExists($archiv & $neuname & ".pdf") Then
ExitLoop
EndIf
WEnd
MsgBox(64, "Hallo", $Zeile & "31 vor Runwait")
[/autoit][autoit][/autoit][autoit]RunWait('"' & $foxit & '" /p "' & $archiv & $neuname & '.pdf"')
WEnd
EndFunc ;==>Print
MsgBox(64, "Hallo", $Zeile & "36 Ende")
[/autoit]Er kommt nur in die While Schleife, obwohl PDF´s in den Ordnern drin sind. Die Schleife läuft auch immer schön durch. Jedoch geht er gar nicht erst in die Function print.
Warum nicht?