[IM13]

Я уже показывал свою процедуру мне давали не совсем коректные ответы, может потому что я задавал не совсем коректные вопросы не знаю, но дело в что я уже смотрел в инете процедуру поиска по всем коталогам и файлам в этих каталогах у меня происходит примерно все так же, но моя процедура в первой конечной папке все делает нормально, а в остальных ошибка ввода вывода - причем раньше была с открываемым файлом, а после некоторых монепуляций с создаваемым файлом(фаил создается не там где надо) хотя открытие и создание происходит вроде бы по полному пути и через одну переменную->
begin
*setcurrentdir(path+'\');
*e:=findfirst(path+'\'+'*.*',16,t);
*while e=0 do (дальше открываю папку и перебераю все файлы)
(при *нахождении нужного файла запускается другая процедура)
end;
* *e:=findnext(t);
...
assignfile(fr,FullName);(где FullName и dirname это полные пути взятые из переменной прошлой процедуры path)
*reset(fr);
*assignfile(fw,dirname+'\'+'demo.*');
*rewrite(fw);
...(сдесь я провожу с открытым файлом некот. действия и записываю в demo.* внизу я удаляю старый и переименовываю demo.* в старый)
* *closefile(fr);
* *closefile(fw);
* *deletefile(FullName);
* *renamefile('demo.*',nameoldfile);
* *deletefile('demo.*');
* *end;
в первом каталоге все нормально в остальных либо вообще ничего, либо создаётся не понятно где, через F7 все просматривал, все перменные, вроде все нормально

[s]Исправлено: invisible man, 11:47 21-10-2004[/s]