VBS如何更改文件夹上的DateLastModified属性

Question

我需要使用VB Script"触摸"或更新文件夹上的DateLastModified属性.

PowerShell不是一个选项,虽然我很感兴趣,如果可以使用PowerShell.

另外,我不想运行像GNU touch.exe这样的外部程序.该脚本将在多台计算机上运行,​​我无法保证将安装PowerShell或外部程序.

谢谢你的任何线索或帮助,史蒂夫

ps也在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