#AutoIt3Wrapper_Version=B
#include <File.au3>
#include <array.au3>

_Convert_Au3_Files_Encoding()

Func _Convert_Au3_Files_Encoding()
	_Encoding_Converter(@ScriptDir)
	_Encoding_Converter(RegRead("HKEY_LOCAL_MACHINE\SOFTWARE" & ((@OSArch = 'X64') ? "\Wow6432Node" : "") & "\AutoIt v3\AutoIt", "InstallDir")  & '\Beta\Include\')

	; and your own UDF folder
	Local $sFolderOwnUDF = FileSelectFolder('Choose your UDF folder','')
	if not @error then 	_Encoding_Converter($sFolderOwnUDF)

EndFunc



Func _Encoding_Converter($sFolder)
	Local $aIncludeList = _FileListToArray($sFolder, '*.au3', $FLTA_FILES, True)
;~ 	_ArrayDisplay($aIncludeList,'$aIncludeList')
	Local $sFileContent
	Local $hFile
	For $iFile = 1 To $aIncludeList[0]
		$sFileContent = FileRead($aIncludeList[$iFile])
;~ 		$hFile = FileOpen($aIncludeList[$iFile], $FO_OVERWRITE +  $FO_UTF8)
		$hFile = FileOpen($aIncludeList[$iFile], $FO_OVERWRITE +  $FO_UTF8_NOBOM )
		FileWrite($hFile, $sFileContent)
		FileClose($hFile)
	Next
EndFunc   ;==>_Encoding_Converter