REM ****************************************
REM Fichier : filetime.vbs
REM Description : affiche, en secondes, les durées entre les temps d'accès (LA) et modification (LM) ET la date de création (DC), pour les fichiers du dossier courant
REM Auteur : X. Gangand
REM Date : 2009
REM ****************************************
'Aide : http://www.commentcamarche.net/contents/vbscript/vbs-file.php3
REM DateCreated
REM DateLastAccessed
REM DateLastModified
Option Explicit
Dim oFSO, curDir, c
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set curDir = oFSO.GetFolder(".")
Dim s, ddf1, ddf2
s = vbtab
Wscript.Echo _
"DC (DateCreated)" & s & _
"LA" & s & _
"LM" & s & _
"Fichier"
For Each c in curDir.Files
ddf1 = DateDiff("s", c.DateCreated, c.DateLastAccessed)
ddf2 = DateDiff("s", c.DateCreated, c.DateLastModified)
Wscript.Echo _
c.DateCreated & s & _
ddf1 & s & _
ddf2 & s & _
c.Name & _
""
Next