Extraer la fecha de modificación de un fichero mediante FTP
 

Hola, ya estamos otra vez por estos lares... estoy investigando el componente TNMFTP para una aplicación sencilla, lo unico que deseo es conectarme a mi servidor FTP, mirar la fecha de creación de un fichero, compararla con la fecha de creacion de otro fichero local y si es posterior, descargarlo para actualzar...

El unico problemilla que encuentro es que la propiedad

FTP.FTPDirectoryList.ModifDate.Strings[3], me devuelve una fecha con formato algo extraño "Aug 30 22:57"


Como puedo convertir este fecha a TDateTime ? StrToDate() Me devuelve error.... :(

Yo estoy en tu misma situación pero yo havia pensado mirar lo por la versión del exe , pero lo de mirar lo por fecha de modificación es una excelente idea no se me havia ocurrido !!!

Me podrias decir como cojes el valor de la fecha modificada del archivo ?

salu2 radge

Mi planteamiento seria este , a ver que os parece

function GetFileDate(TheFileName: string): string;
var
FHandle: integer;
begin
FHandle := FileOpen(TheFileName, 0);
try
Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
finally
FileClose(FHandle);
end;
end;


Mediante esta función , la idea seria cojer la fecha de modificación de un fichero que tengo en el FTP
esta función me funciona en LOCAL via ftp no...

Entonces una vez tuviese la fecha de modificación , si es mayor de la que tengo en local , bajar el archivo y copiarlo
(esta parte la tengo hecha con INDY) conectar al ftp y bajar el archivo.

Lo que no se es como averiguar la fecha de modificación del archivo que tengo en el ftp.

sal2u radge

usa:

Código Delphi [-]
var
fechamod:TDateTime;
 begin
fechamod:=FTP.DirectoryListing.Items[3].ModifiedDate;
end;

regresa: 30/12/1899