Renomear Arquivos

[Vivendo&Aprendendo]

Como faço para renomear um arquivo para que o nome dele seja a data e a hora?

falou

[Progr'amador]

Olá colega,

tenta isso:

procedure TForm1.Button1Click(Sender: TObject);
var
  n : integer;
  na : string;
begin
  na := DateToStr(now)+' '+ TimeToStr(now);
  for n := 1 to length(na) do begin
    if (Copy(na,n,1) = '/') or (Copy(na,n,1) = ':') then begin
      Delete(na,n,1);
      Insert('-',na,n);
    end;
  end;
  na:= 'c:\'+na+'.txt';

  RenameFile('c:\arquivo.txt',na);

end;

Abs. Progr'amador.

[Vivendo&Aprendendo]

cara fiz uns testes aki e não funcionou... se eu colocar uma label no form e pedir para a label mostrar as variáveis da certo mas ele não renomeia.

var n : integer;
    na,ne : string;
begin
 na := DateToStr(now)+' '+ TimeToStr(now);
 for n := 1 to length(na) do
 begin
   if (Copy(na,n,1) = '/') or (Copy(na,n,1) = ':') then
   begin
     Delete(na,n,1);
     Insert('-',na,n);
   end;
 end;
 na := EdtDestino.Text +'\'+na+'.zip';
 RenameFile(EdtDestino.Text + '\Dados.zip',na);
 ne := (EdtDestino.Text + '\Dados.zip');
 Label1.Caption := na;
 Label2.Caption := ne;

Veja ai se pode me ajudar

[Vivendo&Aprendendo]

[Progr'amador]

Testei o seu código e deu CERTO!

verifique se o diretório ou o nome do arquivo ta correto?

eu fiz assim:

var
 n : integer;
 na, ne : string;
begin
  na := DateToStr(now)+' '+ TimeToStr(now);
  for n := 1 to length(na) do
  begin
    if (Copy(na,n,1) = '/') or (Copy(na,n,1) = ':') then
    begin
      Delete(na,n,1);
      Insert('-',na,n);
    end;
  end;
  na := EdtDestino.Text +'\'+na+'.zip';
  
  if RenameFile(EdtDestino.Text + '\Dados.zip',na) then
     ShowMessage('Ok!!!!!');
  
  ne := (EdtDestino.Text + '\Dados.zip');
  Label1.Caption := na;
  Label2.Caption := ne;