Dim srcFile
Dim targetFile
Dim CmdFile

CmdFile = "AutoOCMigrate.ini"
SourceFolder = ".\Auto-OC"
DistinationFolder = ".\"

Set objFile = CreateObject("Scripting.FileSystemObject")
rem objFile.DeleteFile(CmdFile);
Set objCmdFile = objFile.OpenTextFile(CmdFile,2,true)

For Each srcFile In objFile.GetFolder(SourceFolder).Files
   
    targetFilename = objFile.BuildPath(DistinationFolder, srcFile.Name)

    If objFile.FileExists(targetFilename) Then
        ' Get the target file object
		Set targetFile = objFile.GetFile(targetFilename)
        ' Now compare the last modified dates of both files
        If srcFile.Size > targetFile.Size Then
            Wscript.Echo "Different - "& targetFilename
			objCmdFile.WriteLine(".\Auto-OC\"+srcFile.Name)
		Else
			Wscript.Echo "Default - "& targetFilename
			objCmdFile.WriteLine(".\"+srcFile.Name)
			objFile.DeleteFile(srcFile)
        End If
    Else
		If InStr(srcFile.Name, ".pdb") < 0 then 
			Wscript.Echo "New - " & srcFile.Name 
			objCmdFile.WriteLine(".\"+srcFile.Name)
			objFile.MoveFile srcFile, objFile.GetParentFolderName(srcFile.ParentFolder)+"\"
		End IF
	End If
Next

rem migrate dll language files 

LANG_Dll = "\OmenAutoOcUI.resources.dll"

CountryArray = Array("ar", "cs", "da", "de", "el", "en", "en-US", "es", "fi", "fr", "hr", "it", "ja", "ko", "lt", "lv", "nl", "no", "pl", "pt-pt", "ru", "sk", "sl", "sr", "sv", "zh-cn", "zh-Hans", "zh-Hant", "zh-tw")
For Each country In CountryArray
	srcLangFile = DistinationFolder+country+LANG_Dll
	trgLangFile = ".\"+country+Lang_Dll
	If objFile.FileExists(srcLangFile) Then 
		objCmdFile.WriteLine(trgLangFile) 
	End If
Next

objCmdFile.Close
Set objCmdFile = Nothing