Fórum Renomear Arquivo #203779
01/01/2004
0
Dae pessoal, gostaria de saber, como faço para renomear um arquivo, do tipo, clico no arquivo, em uma filelist, e digito um novo nome para o arquivo, em um edi... !!!!!! vlw
Robsondias
Curtir tópico
+ 0
Responder
Posts
01/01/2004
Cdaraujo
Caro amigo,
Você poderia utilizar a API do Windows para renomear o arquivo e assim realizar a operação desejada.
A função para este caso é a RenameFile, que recebe 2 parâmetros, o nome do arquivo antigo e novo nome, veja o exemplo:
procedure TForm1.Button1Click(Sender: TObject);
begin
RenameFile(FileListBox1.Items[ FileListBox1.ItemIndex], Edit1.Text);
end;
procedure TForm1.FileListBox1Change(Sender: TObject);
begin
if FileListBox1.ItemIndex <> -1 then
Edit1.Text := FileListBox1.Items[ FileListBox1.ItemIndex];
end;
Atenciosamente,
Daniel Araújo
www.cdinformatica.hpg.com.br
Você poderia utilizar a API do Windows para renomear o arquivo e assim realizar a operação desejada.
A função para este caso é a RenameFile, que recebe 2 parâmetros, o nome do arquivo antigo e novo nome, veja o exemplo:
procedure TForm1.Button1Click(Sender: TObject);
begin
RenameFile(FileListBox1.Items[ FileListBox1.ItemIndex], Edit1.Text);
end;
procedure TForm1.FileListBox1Change(Sender: TObject);
begin
if FileListBox1.ItemIndex <> -1 then
Edit1.Text := FileListBox1.Items[ FileListBox1.ItemIndex];
end;
Atenciosamente,
Daniel Araújo
www.cdinformatica.hpg.com.br
Dae pessoal, gostaria de saber, como faço para renomear um arquivo, do tipo, clico no arquivo, em uma filelist, e digito um novo nome para o arquivo, em um edi... !!!!!! vlw
Responder
Gostei + 0
01/01/2004
Robsondias
Valeu pela a ajuda ae Daniel
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)