Drag and drop a file onto this script to create a text file containing the escape codes to use in a C++ string literal

string_literal.vbs

Const ForWriting = 2
data = ""
fileName = WScript.Arguments.Item(0)
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(fileName)
Do Until f.AtEndOfStream
    buf = f.Read(1)
    data = data & "\x" & Hex(Asc(buf))
Loop
f.Close
Set f = Nothing
Set f = fso.CreateTextFile(fileName & ".txt", True, False)
f.Write(data)
f.Close