Работа с файлами.ошибки кода

[Sergeich]

написал прогу.. не знаю прально или нет, кто знает поправьте, через заданное время проверяет папки на наличие существования файлов.
не получилось через код 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

Заранее благодарен за помщь.

 

[CreatoR]

Re: сортировка.

Sergeich

Предупреждение

Название темы не содержательно:

Правила форума - п. Б.5...

Имя темы должно нести смысловую нагрузку (отражать суть вопроса/проблемы) - Темы с названием типа "Помагите" и "Пару вопросов", скорее всего, будут удалены.