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);  
    } 
}