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

Question

我需要使用 VB 脚本“触摸”或更新文件夹上的 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