Break ON
$=SetOption("Explicit","ON")

Dim $sFile
$sFile="testfile.txt"

$=SetFileTime($sFile,@DATE+" "+@TIME)
If @ERROR "Error setting time: ["+@ERROR+"] "+@SERROR+@CRLF EndIf

Function SetFileTime($sPath,$sDateTime)
	Dim $sDir,$sFile
	Dim $oShell,$oFolder

	$sFile=SubStr($sPath,InStrRev($sPath,"\")+1)
	If $sFile=$sPath
		$sDir=@CURDIR
	Else
		$sDir=Left($sPath,InStrRev($sPath,"\"))
	EndIf

	$oShell=CreateObject("Shell.Application")
	If @ERROR Exit @ERROR EndIf
	$oFolder=$oShell.NameSpace($sDir)
	If @ERROR Exit @ERROR EndIf
	$oFolder.Items.Item($sFile).ModifyDate=$sDateTime
	If @ERROR Exit @ERROR EndIf

	Exit 0
EndFunction