Fecha fichero FTP
Posted: Wed Jun 24, 2009 12:09 pm
Muy buenas, tengo un código que me devuelve la hora de un determinado fichero en FTP, pero hay a veces que me devuelve un año menos, es decir, si el año es 2009 me devuelve 2008 y la fecha de Modificación del mismo es del 2009 y no hay ninguna fecha con el año 2008. ¿que puede ser?
hFTPDir = FtpFindFirstFile( ::oFTP, cMask, @cBuffer, 0, 0 )
oWin32FindData:cBuffer = cBuffer
if ! Empty( oWin32FindData:cFileName )
AAdd( aFiles, { oWin32FindData:cFileName,;
oWin32FindData:nSizeLow,;
FileTimeToDate(oWin32FindData:nLastWriteAccess),;
FileTimeToTime(oWin32FindData:nLastWriteAccess),;
oWin32FindData:nFileAttributes} )
while InternetFindNextFile( hFTPDir, @cBuffer )
oWin32FindData:cBuffer = cBuffer
AAdd( aFiles, { oWin32FindData:cFileName,;
oWin32FindData:nSizeLow,;
FileTimeToDate(oWin32FindData:nLastWriteAccess),;
FileTimeToTime(oWin32FindData:nLastWriteAccess),;
oWin32FindData:nFileAttributes } )
end
end if
Una ayuda.
Un Saludo.
hFTPDir = FtpFindFirstFile( ::oFTP, cMask, @cBuffer, 0, 0 )
oWin32FindData:cBuffer = cBuffer
if ! Empty( oWin32FindData:cFileName )
AAdd( aFiles, { oWin32FindData:cFileName,;
oWin32FindData:nSizeLow,;
FileTimeToDate(oWin32FindData:nLastWriteAccess),;
FileTimeToTime(oWin32FindData:nLastWriteAccess),;
oWin32FindData:nFileAttributes} )
while InternetFindNextFile( hFTPDir, @cBuffer )
oWin32FindData:cBuffer = cBuffer
AAdd( aFiles, { oWin32FindData:cFileName,;
oWin32FindData:nSizeLow,;
FileTimeToDate(oWin32FindData:nLastWriteAccess),;
FileTimeToTime(oWin32FindData:nLastWriteAccess),;
oWin32FindData:nFileAttributes } )
end
end if
Una ayuda.
Un Saludo.