Code: Alles auswählen
If Left(dateien(),Len(key1$))=key1$
WriteStringN(1, FormatDate("%hh:%ii:%ss", Date()) + " - " + dateien() + " wird auf " + printer1$ + " gedruckt.")
CopyFile(tmpSource$,tmpDestination$)
WriteStringN(1, FormatDate("%hh:%ii:%ss", Date()) + " - " + dateien() + " wurde nach " + finishdir$ + " verschoben.")
prog$=" copy " + tmpsource$ + " > \\" + printer1$
Debug prog$
;RunProgram("cmd.exe",prog$,"",#PB_Program_Hide)
DeleteFile(tmpSource$)
Mit dem Kommentar funktioniert das alles einwandrei...
Was bitte mache ich da falsch?