savefile.vbs

Dim args
Set args=WScript.Arguments

If args.Count < 1 Then
  WScript.Quit
End If

Dim objFS, objFile, filefullnameOri, filefullnameSav, dirfullnameOri, filenameOri, extOri, outfilefullname, c, o, s, os, ss, ns, dp, filesizeOri
c = 0
o = false
s = false
Do While c < args.Count
  Set objFS = CreateObject("Scripting.FileSystemObject")
  If objFS.FileExists(args(c)) Then
    Set objFile = objFS.GetFile(args(c))
    If objFile.Size = 32768 and Not s Then
      s = true
      filefullnameSav = args(c)
    Elseif objFile.Size > 32768 and Not o Then
      o = true
      filefullnameOri = args(c)
      dirfullnameOri = objFS.getParentFolderName(args(c))
      filenameOri = objFS.getFileName(args(c))
      dp = InStrRev(filenameOri, ".")
      If dp > 0 Then
        extOri = Mid(filenameOri, dp + 1)
        filenameOri = Mid(filenameOri, 1, dp - 1)
      Else
        extOri = ""
      End If
      filesizeOri = objFile.Size
    End If
  Else
    WScript.Quit
  End If
  Set objFile = nothing
  Set objFS = nothing
  c = c + 1
Loop

If Not o Then
  WScript.Quit
End If

If s Then
  outfilefullname = dirfullnameOri & "\" & filenameOri & "-new" & extOri
  Set ss = CreateObject("ADODB.Stream")
  ss.Type = 1
  ss.Open
  ss.LoadFromFile filefullnameSav
  ss.Position = 0
  Set ns = CreateObject("ADODB.Stream")
  ns.Type = 1
  ns.Open
  ns.Position = 0
  ns.Write ss.Read(32768)
  ss.Close
  Set os = CreateObject("ADODB.Stream")
  os.Type = 1
  os.Open
  os.LoadFromFile filefullnameOri
  os.Position = 32768
  ns.Position = 32768
  ns.Write os.read(filesizeOri - 32768)
  os.Close
  ns.SaveToFile outfilefullname, 2
  ns.Close

  Set ns = nothing
  Set ss = nothing
  Set os = nothing
Else
  outfilefullname = dirfullnameOri & "\savefile.sav"
  Set os = CreateObject("ADODB.Stream")
  os.Type = 1
  os.Open
  os.LoadFromFile filefullnameOri
  os.Position = 0
  Set ss = CreateObject("ADODB.Stream")
  ss.Type = 1
  ss.Open
  ss.Position = 0
  ss.Write os.Read(32768)
  os.Close
  ss.SaveToFile outfilefullname, 2
  ss.Close

  Set ss = nothing
  Set os = nothing
End If