Renomear Arquivo
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
Curtidas 0
Respostas
Cdaraujo
01/01/2004
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
GOSTEI 0
Robsondias
01/01/2004
Valeu pela a ajuda ae Daniel
GOSTEI 0