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

[tresh]

Привет! Мне нужно написать прогу, которая бы переносила(вырезала) файл(.exe) из одной папки и вставляла в другую. Как это сделать на языке паскаль и вообще, возможно ли такое сделать??Интересует именно команда, которая бы заставляла прогу вырезать файл.. если такая есть..

[-=<[Evklidd]>=-]

{$M 2048, 0, 0} {устанавливаем размер стека}
program cutfile;
uses
 DOS; {подключаем модуль DOS}
var
 path: PathStr;{полное имя исходного файла}
 dir_new: DirStr;{директория куда копируется файл}
begin
 write('Vvedite polnoe im9 kopiruemogo faila: ');
 readln(path); {считываем полное имя}
 write('Vvedite directoriu, v kotoruiu nado ckopirovat'' fail: ');
 readln(dir_new);{считываем директорию}
 swapvectors;{обмениваем содержимое векторов прерывания с переменными SAVEINTXX} 
 exec('C:\WINDOWS\system32\cmd.exe','/C copy '+ path+ ' '+ dir_new);
{запускаем cmd.exe и передаем ему параметры: команду копировать+имя файла+новая директория}
 exec('C:\WINDOWS\system32\cmd.exe','/C del '+ path);{запускаем cmd.exe с командой удаления и путем к первичному файлу} 
 swapvectors;
 readln;
end.

ЗЫ Интерпретатор команд cmd.exe должен находиться по адресу C:\WINDOWS\system32\cmd.exe!

[eoln]

Замечу, что перед копированием файла некоторые атрибуты файла надо снять, иначе скрытые/системные не скопируются, а файлы только для чтения не удалятся
exec('C:\WINDOWS\system32\cmd.exe', '/C attrib -h -r -a ' + path)

[-=<[Evklidd]>=-]

Согласен, надо было учесть, веское замечание