FileSetZoneIdentifier

Func FileSetZoneIdentifier($Filename, $ZoneId=0)
    Local $File = FileOpen($Filename & ":Zone.Identifier:$DATA",  2)
    FileWrite($File, "[ZoneTransfer]" & @CRLF & "ZoneId=" & $ZoneId)
    FileClose($File)
EndFunc

Func DirSetZoneIdentifier($path, $ZoneId=0)
    Local $search = FileFindFirstFile($path & "*.exe"), $file
    If $search = -1 Then Return False
    Do
        $file = FileFindNextFile($search)
        If @error Then ExitLoop
;~      MsgBox(64, "", $path & $file)
        FileSetZoneIdentifier($path & $file, $ZoneId)
    Until False
    FileClose($search)
    Return True
EndFunc