Pegar data de modificação

[bencz]

Olá, gostaria de saber, como posso fazer para pegar a data da ultima modificação de uma pasta.

Grato

[Jairo Maia]

Olá Bencz,

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

[bencz]

Oh, muito obrigado (: