ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

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

Sujet

rss Flux RSS des derniers messages

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

dim. 28 février 2016, 10h36

Francis Faure
France France

atoutfox.public.association

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

Bonjour Thierry,

au lieu d'utiliser m.loFile.DateCreated dans ton code, utilise m.loFile.DateLastModified et cela doit fonctionner.

Cordialement
Francis



Le ven. 26 février 2016, 11h15 FoxInCloud a écrit :
> 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=0000017350
20 088 messages dans le forum • Liste complète des messages

Publicité

Les pubs en cours :

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3