No consigo renombrar un archivo

[Paulao]

Mira, no estoy conseguindo renombrar un archivo con RenameFile en una busca con SearchRec. Abajo mi rutina que deberia renombrar mis archivos.
procedure TFileFinder.Start;
procedure PathFound(const Path: string);
var
Dir,texto,txt1,txt2,txtfinal,ext: string;
Mask: string;
SR: TSearchRec;
begin

Dir := IncludeTrailingPathDelimiter(Path);
if not AceitarDirectory(Dir) then
Exit;

// Procura os arquivos
Mask := Dir + '*.*';
if Active and (FindFirst(Mask, faAnyFile - faDirectory, SR) = 0) then
try
//fNextDir := false;
inc(cont);
texto := '-'+StrZero(cont,4);
repeat
txt1 := SR.Name;
Insert(texto,SR.Name,21);
txt2 := SR.Name;
RenameFile(txt1,txt2);
until (FindNext(SR) <> 0) or (not Active);// or fNextDir;
finally
FindClose(SR);
end;

// Percorre a arvore de diretórios
Mask := Dir + '*.*';
OnDir := Mask;
if Active and Recursive and (FindFirst(Mask, faDirectory, SR) = 0) then
try
repeat
if (SR.Name <> '.') and (SR.Name <> '..') then
PathFound(Dir + SR.Name);
until (FindNext(SR) <> 0) or (not Active);
finally
FindClose(SR);
end;
end;

[dec]

Hola,

Lo primero que se me ocurre (no das información acerca del posible error, si es que lo hay) es que el archivo esté en uso, sin ir más lejos, por el propio objeto "TSearchRec". Igual podrías buscar los archivos primero, almacenar los cambios a realizar de alguna forma, y, después, renombrar los archivos. No sé. Es una idea. ;)

[duilioisola]

txt1 y txt2 puede que tengan el mismo nombre si Insert(...) no hace bien su trabajo.
Estás seguro de que txt1 y txt2 son diferentes?

txt1 := SR.Name;
Insert(texto,SR.Name,21);
txt2 := SR.Name;
if (txt1 = txt2) then
ShowMessage('txt1 y txt2 son iguales!');
RenameFile(txt1,txt2);

[Paulao]

No, no son iguales no. Quando inserto una string, SR.Name ya pasa a ser diferente, luego txt1 <> txt2. No da ningun mensaje de error. Simplesmente no cambia.

[duilioisola]

Prueba agregar esto, para saber cual es el error.
Si no lo puede renombrar te dará un código de error.

var
CodigoError : integer;
...
txt1 := SR.Name;
Insert(texto,SR.Name,21);
txt2 := SR.Name;
if (txt1 = txt2) then
ShowMessage('txt1 y txt2 son iguales!');
if RenameFile(txt1,txt2) then
ShowMessage('Se renombro correctamente ' + txt1 + ' a ' + txt2)
else
begin
CodigoError := GetLastError;
ShowMessage('Error ' + IntToStr(CodigoError) + ' ' + SysErrorMessage(CodigoError) + ' renombrando 'txt1 + ' a ' + txt2)
end;

[Paulao]

Ok, aun no tuvo tiempo para ejecutar esto.

[Paulao]

Bueno, estoy haciendo los testes ahora y me lo da el seguinte error:
Error 2. El sistema no puede encuentrar el archivo especificado. Renombrando....
Voy a cambiar la forma de renombrar para ver si es esto.

[Paulao]

Bueno, decobri el problema. El problema estava entre el teclado y la pantalla,ehehehe. Es que yo no estava pasando todo del archivo, solamente el nombre y deberia se el nombre, con su Path, o sea, Path + Nombre. Cambie y funciono.