osg 链接库 输入 复制技巧

每次新建一个osg工程的时候都要设置包含文件，库文件和链接库输入，重复复制让人烦，下午用了一个小时的时间找到了快速复制的方法。。

Dim X
set fso=CreateObject("Scripting.FileSystemObject")
  set myfile=fso.opentextfile("d:\1.txt",1)
           X=myfile.readall
    myfile.close
Set objIE = CreateObject("InternetExplorer.Application")
 objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", X
objIE.Quit

放到txt文件中，保存，改成.vbs文件

d盘目录需要放置一个名为1.txt的记事本，里面的内容为

OpenThreadsd.lib  
osgd.lib 
osgDBd.lib  
osgFXd.lib  
osgGAd.lib
osgManipulatord.lib
osgParticled.lib  
osgShadowd.lib 
osgSimd.lib  
osgTerraind.lib 
osgTextd.lib 
osgUtild.lib  
osgViewerd.lib

OK，每次双击.vbs文件即可复制txt中的内容。