freeswitch/w32/vsnet/Tools/upgrade.vbs
2005-11-21 00:12:18 +00:00

40 lines
1.5 KiB
Plaintext

Set objFile = Createobject("Scripting.FileSystemObject")
Set objArgs = WScript.Arguments
Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshSysEnv = WshShell.Environment("SYSTEM")
If WshSysEnv("VS80COMNTOOLS")<> "" Then
Set vcProj = CreateObject("VisualStudio.VCProjectEngine.8.0")
Else If WshSysEnv("VS71COMNTOOLS")<> "" Then
Set vcProj = CreateObject("VisualStudio.VCProjectEngine.7.1")
Else
Wscript.Echo("Did not find any Visual Studio .net 2003 or 2005 on your machine")
WScript.Quit(1)
End If
End If
'// check the arguments to be sure it's right
if (objArgs.Count() < 2) Then
WScript.Echo("VC6 or 5 DSP Project File Conversion")
WScript.Echo("Opens specified .dsp and converts to VC7.1 Format.")
WScript.Echo("Will create project file with .vcproj extension")
WScript.Echo("usage: <full path\project.dsp> <full path\project.vcproj>")
WScript.Quit(1)
End If
WScript.Echo("Converting: "+ objArgs.Item(0))
'// If there is a file name of the .vcproj extension, do not convert
Set vcProject = vcProj.LoadProject(objArgs.Item(0))
If Not objFile.FileExists(vcProject.ProjectFile) Then
' // specify name and location of new project file
vcProject.ProjectFile = objArgs.Item(1)
' // call the project engine to save this off.
' // when no name is shown, it will create one with the .vcproj name
vcProject.Save()
WScript.Echo("New Project Name: "+vcProject.ProjectFile+"")
Else
WScript.Echo("ERROR!: "+vcProject.ProjectFile+" already exists!")
End If