Hallo zusammen,
ich benötige mal einen kleinen Schubs um mein Problem zu lösen.
Ich habe ein Script erstellt, welches als Schleife laufen soll, soweit gut und fast schön.
Aber nach einer gewissen Zeit bekomme ich die Fehlermeldung wie im Betreff.
Ich grübel jetzt schon eine weile darüber, aber irgendwo habe ich eine Fehler drin, wo ich keine Lösung zu finde.
Anbei mal das Script in der Hoffnung einer von hier findet die Lösung.
Ist bestimmt nicht schwer aber ich habe nun keinerlei Idee mehr.
Das Script soll lauf einem Server laufen und bei Bedarf PDF Dateien auf einen anderen Server verschieben, da meine User auf dem die PDF Dateien ankommen keinen Zugriff bekommen sollen.
Diese werden über MFP Geräte als FDP Datei eingescannt.
Bei dem Befehl FileMove habe die " eingefügt, sonst wären dort Smiles
Spoiler anzeigen
#include <array.au3>
#include <File.au3>
#include <WinAPIFiles.au3>
kopieren()
Func kopieren()
$Quelle = "D:\Ordner\"
$Ziel1 = "\\Server\D$\Verzeichnis\"
$Ziel2 = "\\Server\D$\Verzeichnis1\Verzeichnis2"
Local $PDF = _FileListToArrayRec($Quelle,"*.pdf", 1,1)
For $i = 1 to UBound($PDF, $UBOUND_ROWS) - 1
$Verzeichnis = StringSplit($PDF[$i],"\")
$Zugriff = _WinAPI_FileInUse($Quelle&$PDF[$i])
$byte = FileGetSize($Quelle&$PDF[$i])
If $Zugriff = "1" OR $byte = "0" Then
Else
If $Verzeichnis[1] = "Allgemein" then
"FileMove($Quelle&$PDF[$i],$Verwa&$Verzeichnis[2], 8)"
Else
"FileMove($Quelle&$PDF[$i],$Home&$Verzeichnis[1]&"\Scanner\"&$Verzeichnis[2], 8)"
EndIf
EndIf
Next
For $i = 1 to UBound($PDF, $UBOUND_ROWS) - 1
_ArrayDelete($PDF, $i)
Next
pause()
EndFunc
Func pause()
sleep(10000)
kopieren()
EndFunc