[?Server]
' Nome do projeto SEM extensao .prj
Set objPrj = Application.GetObject("[?Server].Domain.Files.Prj.[NomeDoPrj]")
' Desabilita
objPrj.Enabled = False
' Habilita
objPrj.Enabled = True
' Toggle
objPrj.Enabled = Not objPrj.Enabled
Prompt
' -----------------------------------------------------------------------
' Habilita ou desabilita .prj
'
' @param {sProjectName} Nome do projeto com extensao
' @param {bEnabled} Booleano que define se habilita ou desabilita o prj
' -----------------------------------------------------------------------
Private Sub ChangeProjectState( sProjectName, bEnabled )
Dim strCommand
Dim objShell
Set objShell = CreateObject("WScript.Shell")
' # Nome do prj com extensao
sBinPath = "c:\program files (x86)\elipse software\elipse e3\bin\"
sParam = IIf(bEnabled, "/EnableProjects ", "/DisableProjects ")
strCommand = "cmd /c """ & sBinPath & "E3Admin.exe"" " & sParam & sProjectName
objShell.Run strCommand, 0, True
End Sub
Chamada da função acima:
' Habilita
ChangeProjectState "NomeDoPrj.prj", True
' Desabilita
ChangeProjectState "NomeDoPrj.prj", False