VBS Как изменить свойство DateLastModified в папке

Question

Мне нужно «коснуться» или обновить свойство DateLastModified в папке с помощью VB Script.

PowerShell не является вариантом, хотя мне интересно, если это возможно с помощью PowerShell.

Кроме того, у меня нет желания запускать внешнюю программу, такую ​​как GNU touch.exe. Скрипт будет работать на нескольких компьютерах, и я не могу гарантировать, что PowerShell или внешние программы будут установлены.

Спасибо за любые ведет или помощь, Стив

p.s также попросили на веб-сайте TechNet.

Answer 1

Отсюда:

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