JScript实现将指定目录下的vc工程加到解决方案

作者：朱金灿
来源：http://blog.csdn.net/clever101
main(); 

function main()

{

    try

    {

    var WSShell = WScript.CreateObject("WScript.Shell");

    var num = WScript.ScriptFullName.lastIndexOf("\\");

    // 获取当前路径

    var strCurPath = WScript.ScriptFullName.substr(0,num);

    var FileSys = WScript.CreateObject("Scripting.FileSystemObject");

    // 判断当前文件夹是否存在

    if (FileSys.FolderExists(strCurPath))

    {

        // 获取vs2008d的dte对象

        var DTE = new ActiveXObject("VisualStudio.DTE.9.0");

        DTE.MainWindow.Visible = false; 

        var strPluginFolder = strCurPath + "\\Plugin";

        // 判断临时文件夹是否存在,若不存在就创建。临时文件夹用于存放创建

        var strTempPath = strCurPath + "\\temp";

        var strSolution = strTempPath+"\\AllPlugin.sln";

        if (FileSys.FileExists(strSolution))

            FileSys.DeleteFile(strSolution);

        var sln = DTE.Solution;

        if(!FileSys.FolderExists(strTempPath))

        {

           FileSys.CreateFolder(strTempPath);

        }

        // 创建空白的解决方案

        sln.Create(strTempPath,"AllPlugin");

        sln.SaveAs(strSolution);

        sln.Open(strSolution);

        var PluginFolder = FileSys.GetFolder(strPluginFolder);

        // 获取所有子文件夹，遍历所有的子文件夹

        var PlugSet =   new   Enumerator(PluginFolder.SubFolders);

        for (var i = 0 ; !PlugSet.atEnd(); PlugSet.moveNext(),i++)

         {

             var strProjectFolder = strPluginFolder + "\\";

             strProjectFolder = strProjectFolder + PlugSet.item().Name;

             var ProjectFolder = FileSys.GetFolder(strProjectFolder);

             // 获取所有的文件

             var fenum = new Enumerator(ProjectFolder.Files);

             for (var j = 0 ; !fenum.atEnd(); fenum.moveNext(),j++)

             {

                 var strPrjFileName = fenum.item().Name;

                 var strSuff = FileSys.GetExtensionName(strPrjFileName);

                 // 假如文件是vc工程文件，就加到解决方案中

                 if((strSuff=="vcproj"))

                 {

                     try

                     {

                     var strProjectFolder = strProjectFolder + "\\";

                     strPrjFileName = strProjectFolder + strPrjFileName;

                     sln.AddFromFile(strPrjFileName);

                     sln.SaveAs(strSolution);

                      WScript.Sleep(3000);

                     }

                     catch(e)

                     {

                         WScript.Echo(e.description);

                     }

                     break;

                 }

             }

         }

         sln.Close();  // 关闭解决方案

    }

    else

    {

          WScript.Echo("the current path isnot exist!");

    }

}

catch(e)

    {

        WScript.Echo(e.description);

    }

}
巴特西

JScript实现将指定目录下的vc工程加到解决方案

最新文章

热门文章
