Pegar data de modificação
Enviado: 21 Ago 2012 09:08
Olá, gostaria de saber, como posso fazer para pegar a data da ultima modificação de uma pasta.
Grato
Grato
Da pasta não sei se é possivel, me parece que ela guarda apenas a data e hora da criação. Já dos arquivos da pasta, você pode fazer assim por exemplo:
Código: Selecionar todos
Function Main()
Local i, aArquivos
aArquivos := Directory( "sua_pasta/*.dbf" )
For i = 1 To Len( aArquivos )
Clear Screen
@ 2,2 say aArquivos[ i, 1 ] // Nome
@ 3,2 say aArquivos[ i, 2 ] // Tamanho
@ 4,2 say aArquivos[ i, 3 ] // Data ultima alteracao
@ 5,2 say aArquivos[ i, 4 ] // Hora ultima alteracao
Inkey(0)
If Lastkey() = 27
Exit
Endi
Next
Return Nil