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 l   

Sujet

rss Flux RSS des derniers messages

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

ven. 26 février 2016, 19h10
Guy BONEMME
atoutfox.public.association

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

FoxInCloud avait prétendu :
> 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


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
Permalink : http://www.atoutfox.org/nntp.asp?ID=0000017342
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