VBS Jak zmienić właściwość DateLastModified w folderze

Question

Muszę "dotknąć" lub zaktualizować właściwość DateLastModified w folderze przy użyciu skryptu VB.

PowerShell nie jest opcją, mimo że jestem zainteresowany, czy jest to możliwe z PowerShell.

Ponadto, nie mam ochoty uruchamiać zewnętrznego programu, takiego jak GNU touch.exe. Skrypt będzie działał na wielu komputerach i nie mogę zagwarantować, że PowerShell lub programy zewnętrzne zostaną zainstalowane.

Dzięki za pomoc, czy prowadzi Steve

p.s poprosił również na TechNet.

Answer 1

stąd:

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