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

Forum AtoutFox : Re: Si un fichier est supprim=c3=a9 et recr=c3=a9=c3=a9=2c Windows recycle la date et heure de cr=c3=a9ation=2c comment   

Sujet

rss Flux RSS des derniers messages

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

ven. 26 février 2016, 12h25
OlivierH
atoutfox.public.association

Re: Si un fichier est supprim=c3=a9 et recr=c3=a9=c3=a9=2c Windows recycle la date et heure de cr=c3=a9ation=2c comment

Salut

Si tu veux j'ai un code pour modifié la date / heure du fichier

Olivier

Le 26/02/2016 11:15, 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=0000017339
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