PDA

Просмотр полной версии : Дикая проблема с файлами



murzilka
11.01.2005, 00:39
Вот код моей проги на паскале, которая должна переименовать туеву хучу jpeg'oв
по порядку 1.jpeg...N.jpeg-но почемуто не работает...пишет file access denied
Может что-то не правильно.Подскажите, буду очень благодарен!


uses WinDos,Crt;

var
DirInfo: TSearchRec;
pdr,name:string;
i:integer;
f:file;

begin
clrscr;
write('Enter the path for dir:');
read(pdr);
chdir (pdr);
FindFirst('*.jpeg', faarchive, DirInfo);
while DosError = 0 do
begin
i:=i+1;
{Writeln(pdr,'\',DirInfo.Name);}
str(i,name);
name:=name+'.jpeg';
assign(f,dirinfo.name);
rename(f,name);
writeln(dirinfo.name,' -->> ',name);
FindNext(DirInfo);
end;
writeln('Numbers of files in ',pdr,' -->',i);
readln;
readln;
end.

Заранее спасибо.

AiK
11.01.2005, 02:41
murzilka, уважаемый! Вы не инициализируете переменные. Это раз.
И не закрываете файл, к которорому делали assign. Это два.