VBS cómo puedo cambiar la propiedad DateLastModified en una carpeta

Question

Necesito 'tocar' o actualizar la propiedad DateLastModified en una carpeta usando VB Script.

PowerShell no es una opción, aunque estoy interesado si es posible con PowerShell.

Además, no tengo ningún deseo de ejecutar un programa externo como GNU touch.exe. La secuencia de comandos se ejecutará en varias computadoras y no puedo garantizar que se instalen PowerShell o programas externos.

Gracias por cualquier pista o ayuda, Steve

p.s también pidieron en TechNet.

Answer 1

A partir de aquí:

http://www.tek-tips.com/viewthread.cfm?qid=1372273

ModFileDT "c:\rootdir", "folder", "1/01/2007 4:18:02 PM" 

Function ModFileDT(strDir, strFileName, DateTime) 

    Dim objShell, objFolder 

    Set objShell = CreateObject("Shell.Application") 
    Set objFolder = objShell.NameSpace(strDir) 
    objFolder.Items.Item(strFileName).ModifyDate = DateTime 
End Function