VBS cách tôi có thể thay đổi thuộc tính DateLastModified trên Thư mục

Question

Tôi cần phải 'chạm' hoặc cập nhật thuộc tính DateLastModified trên một thư mục bằng VB Script.

PowerShell không phải là một tùy chọn, mặc dù tôi quan tâm nếu có thể với PowerShell.

Ngoài ra, tôi không muốn chạy chương trình bên ngoài như GNU touch.exe. Kịch bản sẽ chạy trên nhiều máy tính và tôi không thể đảm bảo rằng PowerShell hoặc các chương trình bên ngoài sẽ được cài đặt.

Cảm ơn mọi khách hàng tiềm năng hoặc trợ giúp, Steve

p.s cũng được hỏi về kỹ thuật.

Answer 1

Từ đây:

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