PC Toledo

Enviado: **03 Mar 2014 11:59**

Situação:
Tenho arquivos com datas de 20 anos futuros, tipo 2034.
Isso veio de rede novell antiga com bug do ano 2000.
Se alterar pra data atual, vai parecer que são arquivos recentes, então queria alterar essas datas pra 2000.

Tinha um utilitário do norton que fazia isso, mas tem como fazer em Harbour?

Enviado: **03 Mar 2014 14:41**

Ve se resolve

Código: Selecionar todos

FUNCTION MAIN()
                SET(_SET_DATEFORMAT,"DD/MM/YYYY")  // Coloca vari veis data no formato dd/mm/aa.
		cls
		cNomeArq := 'NOMEDOARQUIVO.EXT'
		dDataArq := DATE() //Ctod('  /  /    ')
		@ 10,10 get cNomeArq
		@ 11,10 get dDataArq
		Read
		cNomeArq:=Alltrim(cNomeArq)
		If Len(cNomeArq)>5 .and. !Empty(dDataArq)
			SETFDATI(cNomeArq, dDataArq, , '17:30:25')
		ENDIF
		CLS
		QUIT
RETURN

[]´s

Enviado: **03 Mar 2014 18:02**

Era isso mesmo, valeu.

PC Toledo

Alterar data de arquivos

Alterar data de arquivos

Alterar data de arquivos

Alterar data de arquivos