Изменение даты папки или файла Windows

Решение через PowerShell
powershell (Get-Item "C:\"Program Files"").LastWriteTime = get-date
powershell (Get-Item "C:\"Program Files"").CreationTime = get-date

Решение через VBScript 
Dim objShell : Set objShell = CreateObject("Shell.Application") 
objShell.NameSpace("C:\Temp").ParseName("Test.Txt").ModifyDate

   = DateAdd("d", -1, Now()) 

'на вчера

или

Sub Touch(FolderPath, FileName, NewDate)
  Set app = CreateObject("Shell.Application")
  Set folder = app.NameSpace(FolderPath)
  Set file = folder.ParseName(FileName)
  file.ModifyDate = NewDate
End Sub

Call Touch("C:\", "somefile.txt", "2012-01-01")