Hola Foro, con la funcion Directory() puedo extraer, entre otras cosas, la fecha y hora de un archivo o directorio, pero esos datos son los del ultimo cambio.
Alguien puede decirme como obtener la fecha y hora pero de creacion de un archivo o directorio?
Gracias
cFile = 'c:\Plan001.xls' \ arquivo
cAtr = '' \ atributos
nSiz = 0 \ tamanho
dCreate = ctod('') \ data criaĆ§Ć£o
nCreate = 0 \ hora criaĆ§Ć£o em secs
dChange = ctod('') \ data ult.alteraĆ§Ć£o
nChange = 0 \ hora ult.alteraĆ§Ć£o em secs
FileStats(cFile,@cAtr,@nSiz,@dCreate,@nCreate,@dChange,@nChange)
RodolfoRBG wrote: Alguien puede decirme como obtener la fecha y hora pero de creacion de un archivo o directorio?Hola Rodolfo:
#include "FiveWin.ch"
//------------------------------------------------------------------------------------------//
Function Main()
Local aTime := FileTimes( "c:\fwh\samples\test.prg", 3 )
? Str( aTime[ 1 ], 4 ) + "/" + StrZero( aTime[ 2 ], 2 ) + "/" + ;
StrZero( aTime[ 3 ], 2 ) + Space( 1 ) + ;
StrZero( aTime[ 4 ], 2 ) + ":" + StrZero( aTime[ 5 ], 2 ) + ":" + ;
StrZero( aTime[ 6 ], 2 )
Return nil
//------------------------------------------------------------------------------------------//
#pragma BEGINDUMP
#include <Windows.h>
#include <mapiwin.h>
#include <ClipApi.h>
HB_FUNC( FILETIMES ) // params cFileName, nTime --> { nYear, nMonth, nDay, nHour, nMin, nSec }
{
LPSTR cFileName = _parc( 1 ) ;
int nTime = ( ISNUM( 2 ) ? _parni( 2 ) : 1 ) ; // defaults to 1
FILETIME ftCreate, ftAccess, ftWrite ;
SYSTEMTIME stTime ;
BOOL bRet ;
HANDLE hFile = CreateFile( cFileName, GENERIC_READ, FILE_SHARE_WRITE, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0 ) ;
if( ! hFile )
return ;
GetFileTime( (HANDLE) hFile, &ftCreate, &ftAccess, &ftWrite ) ;
switch( nTime )
{
case 1 : // last update
FileTimeToSystemTime( &ftWrite, &stTime ) ;
break ;
case 2 : // last access
FileTimeToSystemTime( &ftAccess, &stTime ) ;
break ;
case 3 : // creation
FileTimeToSystemTime( &ftCreate, &stTime ) ;
break ;
default : // last update
FileTimeToSystemTime( &ftWrite, &stTime ) ;
break ;
}
SystemTimeToTzSpecificLocalTime( NULL, &stTime, &stTime ) ;
CloseHandle( hFile ) ;
_reta( 6 ) ;
_storni( stTime.wYear, -1, 1 ) ;
_storni( stTime.wMonth, -1, 2 ) ;
_storni( stTime.wDay, -1, 3 ) ;
_storni( stTime.wHour, -1, 4 ) ;
_storni( stTime.wMinute, -1, 5 ) ;
_storni( stTime.wSecond, -1, 6 ) ;
}
#pragma ENDDUMP