arquivo texto para registrar envio

Delphi

24/02/2006

Boa noite!

Como eu poderia montar um arquivo texto que possa registar todos os envio de um arquivo para um FTP? Preciso registrar data e hora do envio.

Alguém poderia e fornecer um código exemplo.

Abraço
Wagner


Wagnermarrane

Wagnermarrane

Curtidas 0

Respostas

Wagnermarrane

Wagnermarrane

24/02/2006

Boa noite! Como eu poderia montar um arquivo texto que possa registar todos os envio de um arquivo para um FTP? Preciso registrar data e hora do envio. Alguém poderia e fornecer um código exemplo. Abraço Wagner


ja achei

valeu

procedure TSendFTP.GravaEnvio;
const
  NomArquivo: String = ´LogEnvio.txt´;
var
  Path: String;
  Arquivo: TextFile;
begin
  Path := ExtractFilePath(Application.ExeName);
  if not DirectoryExists(Path) then begin
    CreateDir(Path);
  end;
  if not FileExists(Path + NomArquivo) then begin
    FileCreate(Path + NomArquivo);
  end;
  Try
    AssignFile(Arquivo, Path + NomArquivo);
    Append(Arquivo);
    Write(Arquivo, DateToStr(Date) + ´ ´ + TimeToStr(Time));
    CloseFile(Arquivo);
  Except

  End;



GOSTEI 0
POSTAR