Forum AtoutFox : Si un fichier est supprimé et recréé, Windows recycle la date et heure de création, comment le contourner ?   

• Derniers messages
• Informations

Vous devez vous identifier pour pouvoir poser une question ou répondre.

ven. 26 février 2016, 11h15

FoxInCloud (Th. Nivelet)
France
atoutfox.public.association

Si un fichier est supprimé et recréé, Windows recycle la date et heure de création, comment le contourner ?

Bonjour

Comment faire pour qu'en cas de suppression et recréation d'un fichier, le nouveau a une date et heure de création différente du premier ?

Merci,

* Montre que, si un fichier est supprimé puis recréé, le nouveau fichier reprend la date et heure de création du premier
local ltNow, loFSO as fileSystemObject;
, lcFile, ltFile, loFile

loFSO = CreateObject('Scripting.fileSystemObject')
ltNow = Datetime()

lcFile = Addbs(Sys(2023)) + 'WindowsRecyclesFileCreationDateTime' + Sys(2015) + '.txt'
StrToFile('WindowsRecyclesFileCreationDateTime', m.lcFile) && crée le fichier
loFile = m.loFSO.getFile(m.lcFile)

clear

? 'Fichier "', m.lcFile, '" créé à', m.loFile.DateCreated, '?', m.loFile.DateCreated = m.ltNow

loFile = .null.
erase (m.lcFile) && supprime le fichier
? 'Fichier "', m.lcFile, '" supprimé ?', !File(m.lcFile)

wait "Attendons quelques secondes avant de recréer le fichier pour être sûr d'avoir une date et heure différente..." window timeout 2

StrToFile('WindowsRecyclesFileCreationDateTime', m.lcFile) && recrée le fichier
loFile = m.loFSO.getFile(m.lcFile)

? 'Windows';
 , Iif(m.loFile.DateCreated = m.ltNow, "a", "n'a pas");
 , 'attribué au nouveau fichier la date de création du fichier supprimé :';
 , m.loFile.DateCreated


Permalink : http://www.atoutfox.org/nntp.asp?ID=0000017338