function VSCompilerVer (slnFile) { var fso = new ActiveXObject("Scripting.FileSystemObject"); if (! fso.FileExists (slnFile)) { var msg = "Solution file missing: " + slnFile; Application.Macros (0).Add ("ThrowError", msg); throw msg; } var inFile = fso.OpenTextFile (slnFile); var line = inFile.ReadLine (); if (0 == line.indexOf ("Microsoft Visual Studio Solution File, Format Version 7.00")) return "70"; else if (0 == line.indexOf ("Microsoft Visual Studio Solution File, Format Version 8.00")) return "71"; var msg = "Unknown compiler version or bad solution file."; Application.Macros (0).Add ("ThrowError", msg); throw msg; } function VSCompile (slnFile) { var macroName = VSCompilerVer (slnFile); if (macroName == "70") macroName = "VS7_0"; else if (macroName == "71") macroName = "VS7_1"; var macro = GetStr (macroName); if (macro.length == 0) { var msg = macroName + " macro missing"; Application.Macros (0).Add ("ThrowError", msg); throw msg; } var buildLine = "\"" + macro + "\" \"" + slnFile + "\""; return buildLine; }