topic-14171

Posts: 467

Joined: Fri Dec 09, 2005 12:41 AM

como ver las Fechas de un archivo
Posted: Tue Jan 06, 2009 04:00 PM

Hola con todos,,, y ante todo que este año 2009 sea el comienzo de los mejores añossssss de nuestra vida!!!

Buenoo.. al tema... ustedes saben que un archivo tiene fecha de creacion,, fecha de modficacion y de ultimo acceso ,, y esto lo vemos por el windows al presionar boton derecho sobre el archivo , en la opcion de Propiedades

Es posible obtener estos datos Fecha creacion, fecha Modificacion. y ultimo acceso usando FWH

Graciass por alguna luz q le den al tema

Lubin

mmercado

Posts: 782

Joined: Wed Dec 19, 2007 07:50 AM

Re: como ver las Fechas de un archivo
Posted: Tue Jan 06, 2009 05:04 PM

lubin wrote:Es posible obtener estos datos Fecha creacion, fecha Modificacion. y ultimo acceso usando FWH

Hola Lubin:

Analiza el ejemplo siguiente:

Code: Select all Collapse

#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

Feliz 2009

Manuel Mercado

manuelmercado at prodigy dot net dot mx

lubin

Posts: 467

Joined: Fri Dec 09, 2005 12:41 AM

Re: como ver las Fechas de un archivo
Posted: Wed Jan 07, 2009 01:26 AM

Gracias Manuel
En este momento le hecho una mano y te comento

Lubin

FiveTech Support Forums

Continue the discussion