Как изменить дату изменения папки ?

[macF]

Это для файла, а для папки не работает. Т.е ничего не происходит.

ModFileDT "c:\rootdir", "22.txt", "1/01/2018 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

[Iska]

macF, используйте PowerShell.