Estampar fecha en un archivo

[soporte]

Existe alguna función que permita cambiar la fecha de creación de un archivo
--
Ing. Guillermo Guevara C.
Grupo Computación 2000
Nuevo Mundo Nº 2821
Jardines de la Cruz
Guadalajara, Jal. 44950
(33) 1078-8363 / 1078-8364
www.pv2000.com.mx
soporte@pv2000.com.mx

[Bingen Ugaldebere]

Ing. Guillermo Guevara C. escribió:
> Existe alguna función que permita cambiar la fecha de creación de un archivo
>
Yo encontré esta en C e intenté adaptarla pero mis conocimientos de C
son muy limitados y no conseguí­ que funcione, quizás alguien mas curtido
la pueda hacer funcionar, lo siento.
Salu2.
#pragma BEGINDUMP
#include <windows.h>
#include <xailer.h>
XA_FUNC( SETFTIMEDATE ) // ( nFileHandle, cTime, dDate ) --> lSuccess
{
WORD wHandle = hb_parni( 1 ) ;
LPSTR pTime = hb_parc( 2 );
LPSTR pDate = hb_parc( 3 ) ;
WORD wTime, wDate;
if( pTime )
{
( ( _TIME * ) &wTime )->hour = CharsToWord( pTime );
( ( _TIME * ) &wTime )->min = CharsToWord( pTime + 3 );
( ( _TIME * ) &wTime )->sec = CharsToWord( pTime + 6 );
}
if( pDate )
{
( ( _DATE * ) &wDate )->day = CharsToWord( pDate + 6 );
( ( _DATE * ) &wDate )->month = CharsToWord( pDate + 4 );
( ( _DATE * ) &wDate )->year = CharsToLong( pDate ) - 1980;
}
_AX = 0x5701;
_BX = wHandle;
_CX = wTime;
_DX = wDate;
Dos3Call();
hb_retl( ! ( _FLAGS & 1 ) );
}
#pragma ENDDUMP

[ignacio]

Bingen,
Me temo que eso no funciona en 32 bits. Prueba con la función del API
SetFileTime().
Saludos,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Bingen Ugaldebere" <bingen@muninser.com> escribió en el mensaje
news:4753bfd0$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Ing. Guillermo Guevara C. escribió:
>> Existe alguna función que permita cambiar la fecha de creación de un
>> archivo
>>
> Yo encontré esta en C e intenté adaptarla pero mis conocimientos de C son
> muy limitados y no conseguí que funcione, quizás alguien mas curtido la
> pueda hacer funcionar, lo siento.
>
> Salu2.
>
> #pragma BEGINDUMP
> #include <windows.h>
> #include <xailer.h>
>
> XA_FUNC( SETFTIMEDATE ) // ( nFileHandle, cTime, dDate ) --> lSuccess
> {
> WORD wHandle = hb_parni( 1 ) ;
> LPSTR pTime = hb_parc( 2 );
> LPSTR pDate = hb_parc( 3 ) ;
> WORD wTime, wDate;
>
> if( pTime )
> {
> ( ( _TIME * ) &wTime )->hour = CharsToWord( pTime );
> ( ( _TIME * ) &wTime )->min = CharsToWord( pTime + 3 );
> ( ( _TIME * ) &wTime )->sec = CharsToWord( pTime + 6 );
> }
>
> if( pDate )
> {
> ( ( _DATE * ) &wDate )->day = CharsToWord( pDate + 6 );
> ( ( _DATE * ) &wDate )->month = CharsToWord( pDate + 4 );
> ( ( _DATE * ) &wDate )->year = CharsToLong( pDate ) - 1980;
> }
>
> _AX = 0x5701;
> _BX = wHandle;
> _CX = wTime;
> _DX = wDate;
> Dos3Call();
>
> hb_retl( ! ( _FLAGS & 1 ) );
> }
>
> #pragma ENDDUMP

[Bingen Ugaldebere]

Ya he visto en el MSDN de M$ que el Api incluye SetFileTime() y
SetFileDate(, en cuanto pueda pruebo a hacer los Inline C
Gracias Ignacio.
> Bingen,
>
> Me temo que eso no funciona en 32 bits. Prueba con la función del API
> SetFileTime().
>
> Saludos,
>

[soporte]

Gracias amigos
Ya me solucionó el problema Rene Flores con una función de Funcky
Gracias a todos
--
Ing. Guillermo Guevara C.
Grupo Computación 2000
Nuevo Mundo Nº 2821
Jardines de la Cruz
Guadalajara, Jal. 44950
(33) 1078-8363 / 1078-8364
www.pv2000.com.mx
soporte@pv2000.com.mx
"Bingen Ugaldebere" <bingen@muninser.com> escribió en el mensaje
news:4753d184$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Ya he visto en el MSDN de M$ que el Api incluye SetFileTime() y
> SetFileDate(, en cuanto pueda pruebo a hacer los Inline C
>
> Gracias Ignacio.
>
>> Bingen,
>>
>> Me temo que eso no funciona en 32 bits. Prueba con la función del API
>> SetFileTime().
>>
>> Saludos,
>>

[Xevi]

Bingen,
¿Has podido hacer los Inline C???
Resulta que cuando bajo ficheros via FTP, pone la fecha del archivo del
momento que efectuas la descarga y no la fecha del archivo de origen del
servidor FTP.
Gracias.
Un Saludo,
Xevi.
"Bingen Ugaldebere" <bingen@muninser.com> escribió en el mensaje de noticias
news:4753d184$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Ya he visto en el MSDN de M$ que el Api incluye SetFileTime() y
> SetFileDate(, en cuanto pueda pruebo a hacer los Inline C
>
> Gracias Ignacio.
>
>> Bingen,
>>
>> Me temo que eso no funciona en 32 bits. Prueba con la función del API
>> SetFileTime().
>>
>> Saludos,
>>

[Bingen Ugaldebere]

No no he podido pero aun así­ el problema que tienes es lógico el archivo
descargado es una copia del original con la fecha actualizada, yo lo que
hago es decargar del FTP un ZIP con los archivos que luego descomprimo
desde Xailer y así­ no se produce este problema.
Salu2.

[Xevi]

Bingen,
En XP funciona perfecto descomprimiendo un Zip,
pero VISTA pone la fecha y hora que se ha descomprimido y no la que contiene
el/los fichero/s zip.
¿Habrá algún bug en la clase TUnZipFile para descomprimir archivos en
Vista???
Un Saludo,
Xevi.
"Bingen Ugaldebere" <bingen@muninser.com> escribió en el mensaje
news:4764ef73$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> No no he podido pero aun así el problema que tienes es lógico el archivo
> descargado es una copia del original con la fecha actualizada, yo lo que
> hago es decargar del FTP un ZIP con los archivos que luego descomprimo
> desde Xailer y así no se produce este problema.
>
> Salu2.