Data de Criação do Diretório

[asimoes]

Prezados,

Tem alguma função que me retorne a data de criação do diretório, não a de atualização.

[alxsts]

Olá!

Considerando que um diretório é um arquivo existente em disco e que com a função Directory() podemos recuperar a lista de diretórios de um caminho no sistema de arquivos, creio que seja possível utilizar a classe FileInfo, que foi apresentada pelo colega Jairo no tópico "como apagar arquivos anteriores a data de hoje", para conseguir o que você deseja:

Código: Selecionar todos

01	Function Main()
02	 Local x, aFiles, cFile, aFileInfo, oFileInfo, dDataHoje:=Date(), cPastaFiles
03	       
04	 SET DATE BRIT
05	 SET CENTURY ON
06	 
07	 cPastaFiles := "C:\MinhaPasta\MinhaSubPasta\"  // coloque aqui o caminho da pasta...
08	       
09	 aFiles := Directory( cPastaFiles + "*.*", "D" )     // pasta e tipo de arquivo... note o "D"

DIRECTORY()
Create an array of directory and file information
------------------------------------------------------------------------------
Syntax

DIRECTORY(<cDirSpec>, [<cAttributes>]) --> aDirectory

[asimoes]

Alexandre,

Directory não retorna a data de criação original do diretório, só a de modificação

A classe fileinfo usa a função filestats, também não funciona

[Jairo Maia]

Olá Alexandre Simões,

No exemplo do Alexandre Santos o "D" significa que além dos arquivos serão incluídas a(s) sub pasta(s). Aquele "D" não se refere a data. Se quer saber somente as subpastas do caminho informado basta verificar se o elemento 5 de aFiles{} "contém" a letra "D". O "contém" é porque algumas pastas têm mais de um atributo.

A classe fileinfo usa a função filestats, também não funciona

FileStats() funciona sim. Pode enviar o nome de uma pasta a FileStats() que você terá a data de criação e última alteração. Se alterar a Classe FileInfo também irá funcionar para pastas, mas FileInfo funciona só com arquivos.

[asimoes]

Jairo e demais,

O FileStatts funciona sim, não sei o que fiz, mas a informação que eu precisava está funcionando.