' Touch a file - Change the Last-Modified Date of a File
path="c:\test.txt"
Set fso = CreateObject("Scripting.Filesystemobject")
Set file = fso.GetFile(path)
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(file.ParentFolder.Path)
objFolder.Items.Item(file.Name).ModifyDate = Now