Trocando nome de arquivo
Como faço isso:
Tenho arquivos *.mp3 em uma pasta.
aaa1.mp3
aaa2.mp3
aaa3.mp3
aaa4.mp3
Gostaria de trocar o nome dos arquivos tipo assim:
For x:=1 to (numerodearquivos) do
begin
nome[x]:=´arquivo´+[x];
end;
Pessoal, ajuda ae !!
Tenho arquivos *.mp3 em uma pasta.
aaa1.mp3
aaa2.mp3
aaa3.mp3
aaa4.mp3
Gostaria de trocar o nome dos arquivos tipo assim:
For x:=1 to (numerodearquivos) do
begin
nome[x]:=´arquivo´+[x];
end;
Pessoal, ajuda ae !!
Overflow
Curtidas 0
Respostas
Anonymous
10/04/2003
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! :?
2°) vc quer mudar só o nome ou tudo(nome+extensão)?
Explica mais detelhado pra gente poder te ajudar! :?
GOSTEI 0
Anonymous
10/04/2003
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
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
GOSTEI 0