Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Код поиска и копирования

Автор: ShA_Amn 14.08.2007 23:44

Вот сложилось так, что просто катострофически срочно нужно написать код на паскале (поиска и копирования файлов) файлы будут искаться по всем логическим дискам и сливаться в папку (с:\work\stdk), маска файлов постоянная, но содержимое их разное и поэтому нужно их разделять в конечной папке...

З.Ы. Плиз помогите кто как срочно сможет! на мыло [censored]
 ! 
 Здесь не доска объявлений!


Автор: мисс_граффити 15.08.2007 1:01

{$Telephaty_ON}
нельзя это по-человечески объяснить? как, что, где ищется? как их разделять, как сливать?...

Автор: ShA_Amn 15.08.2007 2:39

Цитата(мисс_граффити @ 14.08.2007 21:01) *

{$Telephaty_ON}
нельзя это по-человечески объяснить? как, что, где ищется? как их разделять, как сливать?...

поднял инфу - понял что десятком строк не отделаюсь sad.gif
подскажите тогда люди добрые как из "USES Dos;" запустить "CMD" или "qwerty.bat"?
освоил EXEC (Path,Param:STRING); , так эта зараза не алё... 16ричные хавает а 32 - молчит как рыба...

Автор: volvo 15.08.2007 5:01

Цитата
16ричные хавает а 32 - молчит как рыба...

Довольно странно. Вот эта программа 
{$M 8192, 0, 0}
uses dos;
begin
  swapvectors;
    exec(getenv('COMSPEC'), 'qwerty.bat');
  swapvectors;
end.



только что запустила QWERTY.BAT следующего содержания:
Цитата(qwerty.bat)

CMD

Автор: ShA_Amn 15.08.2007 21:04

Вот теперь вообще ничего не понимаю!
выдаётся ошибка и всё тут!
ошибка характера:
заголовок - 16-разрядная подсистема MS-Dos
содержимое -
имя программы
Процессор NTVDM обнаружил недопустимую инструкцию.
ниже фигня какаято и говорят закрыть с помошью "Закрыть"

Автор: ShA_Amn 16.08.2007 2:03

Цитата(ShA_Amn @ 15.08.2007 17:04) *

Вот теперь вообще ничего не понимаю!
выдаётся ошибка и всё тут!
ошибка характера:
заголовок - 16-разрядная подсистема MS-Dos
содержимое -
имя программы
Процессор NTVDM обнаружил недопустимую инструкцию.
ниже фигня какаято и говорят закрыть с помошью "Закрыть"


Всё, дошло!
работает!
Ура товарищи!
Всем спасибо! good.gif