Fórum Trocando nome de arquivo #153611

1°) não entendi bem este For, vc quer guardar no array só o nome do arq ou o nome+extensão?
2°) vc quer mudar só o nome ou tudo(nome+extensão)?

Explica mais detelhado pra gente poder te ajudar! :?

Olá amigo,

Se entendi bem, faça o seguinte:

Primeiramente liste os arquivos em um FileListBox, depois coloque a função abaixo no evento OnClick de um button:

procedure TForm1.Button1Click(Sender: TObject);
Var
I: Integer;
begin
For I:=0 To FileListBox.Items.Count-1 Do
Begin
RenameFile(FileListBox.Directory+´\´+FileListBox.Items[I], FileListBox.Directory+´\´+´arquivo´+IntToStr(I));
end;
FileListBox.Update;
end;

Espero ter ajudado,

[]´s

CristianF