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

Question

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

PowerShell不是一个选项，但我很感兴趣，如果可以使用PowerShell。

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

感谢任何线索或帮助，Steve

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