Sergeich
Новичок
- Сообщения
- 10
- Репутация
- 0
написал прогу.. не знаю прально или нет, кто знает поправьте, через заданное время проверяет папки на наличие существования файлов.
не получилось через код autoit осуществить некоторые команды пришлось запихнуть их в bat файл и просто его запустить. если поможете обойтись без батника буду признателен.
в батнике расписано что содержимое всех оставшихся файлов записать в 1 файл, их переместить в другую папку и послать созданный файл на печать на сетевой принтер.
кстати иногда происходят глюки и программа может послать на печать все файлы которые были в папке... не раскидывая их по расширениям.
где conv.bat содержит в себе
Заранее благодарен за помщь.
не получилось через код autoit осуществить некоторые команды пришлось запихнуть их в bat файл и просто его запустить. если поможете обойтись без батника буду признателен.
в батнике расписано что содержимое всех оставшихся файлов записать в 1 файл, их переместить в другую папку и послать созданный файл на печать на сетевой принтер.
кстати иногда происходят глюки и программа может послать на печать все файлы которые были в папке... не раскидывая их по расширениям.
Код:
Call("convert")
Func convert()
FileChangeDir ( "C:\DG\post\" )
FileCopy("C:\DG\post\*.*", "C:\DG\MBOX\OUT\", 8)
Sleep(1000)
FileMove("C:\DG\post\*.*", "C:\DG\MBOX\IN\", 8)
FileCopy("C:\DG\post\dzergin\*.*", "C:\DG\mbox\out\dzergin\", 8)
Sleep(1000)
FileMove("C:\DG\post\dzergin\*.*", "C:\DG\MBOX\IN\", 8)
FileCopy("C:\DG\post\ic\*.*", "C:\DG\mbox\out\ic\", 8)
Sleep(1000)
FileMove("C:\DG\post\ic\*.*", "C:\DG\MBOX\IN\", 8)
FileCopy("C:\DG\post\gic\*.*", "C:\DG\mbox\out\gic\", 8)
Sleep(1000)
FileMove("C:\DG\post\gic\*.*", "C:\DG\mbox\gic\", 8)
FileChangeDir ( "c:\dg\mbox\in" )
FileMove("C:\DG\MBOX\IN\*.arj", "C:\DG\ARHIV\", 8)
FileMove("C:\DG\MBOX\IN\*.xls", "C:\DG\ARHIV\", 8)
FileMove("C:\DG\MBOX\IN\*.rar", "C:\DG\ARHIV\", 8)
FileMove("C:\DG\MBOX\IN\*.exe", "C:\DG\ARHIV\", 8)
FileMove("C:\DG\MBOX\IN\*.rtf", "C:\DG\ARHIV\", 8)
FileMove("C:\DG\MBOX\IN\*.doc", "C:\DG\ARHIV\", 8)
FileMove("C:\DG\MBOX\IN\milsa*.*", "C:\DG\ARHIV\", 8)
FileMove("C:\DG\MBOX\IN\*.dt", "C:\DG\ARHIV\", 8)
FileMove("C:\DG\MBOX\IN\*.zip", "C:\DG\ARHIV\", 8)
FileMove("C:\DG\MBOX\IN\unknow\*.*", "C:\DG\MBOX\IN\", 8)
Sleep(1000)
Beep(12000 ,10)
Call("conv")
Sleep(300000)
Beep(12000 ,10)
Call("convert")
EndFunc
Func conv()
MsgBox(0,"Уведомление","Проверка сообщений",5)
FileChangeDir ( "C:\DG\MBOX\IN\" )
ShellExecute("conv.bat","cd C:\DG\MBOX\IN\", "C:\DG\")
EndFuncгде conv.bat содержит в себе
Код:
@echo on
:loop
cd c:\dg\mbox\in
if exist *.* goto work
sleep 120
goto loop
:work
cd c:\dg\mbox\in
copy *.* c:\dg\otvet\*.*
copy *.*+c:\dg\pust.txt c:\dg\info.txt
copy c:\dg\info.txt c:\dg\info1.txt
echo y | del *.*
cd c:\dg
print /D:\\10.58.90.5\XeroxPha c:\dg\info.txt
echo y | del info.txtЗаранее благодарен за помщь.
