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

• Derniers messages
• Informations

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

ven. 26 février 2016, 19h42

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

Re: Si un fichier est supprimé et recréé, Windows recycle la date et heure de création, comment l

Le ven. 26 février 2016, 19h10 Guy BONEMME a écrit :

> Pourquoi ne pas sauver le nouveau fichier sous un autre nom temporaire.
> et le renommer par la suite du nom correct.
>
> --
> Guy BONEMME
> Atoutfox
> BEfox

Merci Guy,
Je croyais que tu avais trouvé la formule magique mais apparemment Windows ne l'entend pas ainsi :
* 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;
, lcFile1;
, 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.ltNow, '?', 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

? 'Il est maintenant', Datetime()

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

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

&& Guy Bonemme propose dans http://www.atoutfox.org/nntp.asp?ID=0000017342 :
lcFile1 = Addbs(JustPath(m.lcFile)) + JustStem(m.lcFile) + Sys(2015)+ '.' + JustExt(m.lcFile)
StrToFile(FileToStr(m.lcFile), m.lcFile1) && crée un autre fichier
erase (m.lcFile) && supprime le fichier original
rename (m.lcFile1) to (m.lcFile)
loFile = m.loFSO.getFile(m.lcFile)

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


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