Não consigo renomear arquivo em um TSearchRec

Delphi

05/10/2011

Acho que a minha unit estava grande. Eu não consigo renomear nada. O erro é: Não é possivel encontrar o arquivo especificado.; Veja a parte do erro: Não postou com parte do código.
Pjava

Pjava

Curtidas 0

Respostas

Pjava

Pjava

05/10/2011

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;
GOSTEI 0
Pjava

Pjava

05/10/2011

To postando em pedaços e assim eu consigo. O erro que dá é:
Erro 2 O sistema não pode encontrar o arquivo especificado....
GOSTEI 0
POSTAR