Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Gilles LAURENT [MVP]
"Fabrice" a écrit dans le message de news:eVQHbX3$ | Bonjour,
Bonjour,
| Je fais une série de mise à jour dans des fichier WORD, seulement je | voudrait garder la date de dernière modif de ces fichiers.
Avec l'objet Shell.Application. Par exemple, pour fixer la date et l'heure de dernière modification du fichier D:TestMyFile.doc à la date d'hier (i.e -24 heures) :
Set oShell=CreateObject("Shell.Application") Set oFolder=oShell.NameSpace("D:Test") Set oFile=oFolder.Items.Item("MyFile.doc") oFile.ModifyDateÚteAdd("D",-1,Now)
-- Gilles LAURENT MVP Windows Server - Admin Frameworks http://glsft.free.fr
"Fabrice" <fabrice.magier@tiscali.fr> a écrit dans le message de
news:eVQHbX3$HHA.4656@TK2MSFTNGP04.phx.gbl
| Bonjour,
Bonjour,
| Je fais une série de mise à jour dans des fichier WORD, seulement je
| voudrait garder la date de dernière modif de ces fichiers.
Avec l'objet Shell.Application. Par exemple, pour fixer la date et
l'heure de dernière modification du fichier D:TestMyFile.doc à la date
d'hier (i.e -24 heures) :
Set oShell=CreateObject("Shell.Application")
Set oFolder=oShell.NameSpace("D:Test")
Set oFile=oFolder.Items.Item("MyFile.doc")
oFile.ModifyDateÚteAdd("D",-1,Now)
--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr
"Fabrice" a écrit dans le message de news:eVQHbX3$ | Bonjour,
Bonjour,
| Je fais une série de mise à jour dans des fichier WORD, seulement je | voudrait garder la date de dernière modif de ces fichiers.
Avec l'objet Shell.Application. Par exemple, pour fixer la date et l'heure de dernière modification du fichier D:TestMyFile.doc à la date d'hier (i.e -24 heures) :
Set oShell=CreateObject("Shell.Application") Set oFolder=oShell.NameSpace("D:Test") Set oFile=oFolder.Items.Item("MyFile.doc") oFile.ModifyDateÚteAdd("D",-1,Now)
-- Gilles LAURENT MVP Windows Server - Admin Frameworks http://glsft.free.fr