Programa em VBS, alternando entre dois diretorios

[Raposo]

Possuo um código em VBS e necessito que ele acessar um diretorio ler executar a aplicação, depois entrar em outro diretorio executar a aplicação e finalizar o programa.

Segue o código:

Set FSOSample = CreateObject("Scripting.FileSystemObject")

If FSOSample.FolderExists("C:\ProgramFiles\teste\teste.exe") Then

wscript.echo "Programa Teste instalado!!!"

Else

Set TESTE= createobject ("Wscript.Shell")

TESTE.Run "\\1.1.1.1\testeinstall\testepackage.exe /S"

End If

Editado Abril 8, 2010 por quintelab
Removido Urgente da descrição

[quintelab]

Qual o problema? O que acontece?

Abraços...

[Raposo]

Então quintelab eu queria executar no primeiro caminho e depois executar no segundo caminho, como por exemplo:

Set FSOSample = CreateObject("Scripting.FileSystemObject")

If FSOSample.FolderExists("C:\ProgramFiles\teste\teste.exe") Then

wscript.echo "Programa Teste instalado!!!"

If FSOSample.FolderExists("C:\ProgramFiles\teste\teste2.exe") Then

wscript.echo "Programa Teste instalado!!!"

Else

Set TESTE= createobject ("Wscript.Shell")

TESTE.Run "\\1.1.1.1\testeinstall\testepackage.exe /S"

End If

Estou com dúvida como posso executar o programa nos dois caminhos

[quintelab]

Acho que um ElseIf resolve seu problema. Teste a primeira pasta, com um ElseIF a segunda.

Abraços...

[Raposo]

Então quintelab,

muito obrigado pela resposta, ficaria assim:

Set FSOSample = CreateObject("Scripting.FileSystemObject")
If FSOSample.FolderExists("C:\ProgramFiles\teste\teste.exe") Then
wscript.echo "Programa Teste instalado!!!" 
[b]
Elseif[/b]

FSOSample.FolderExists("C:\ProgramFiles\teste\teste2.exe") Then
wscript.echo "Programa Teste instalado!!!" 

Else
Set TESTE= createobject ("Wscript.Shell")
TESTE.Run "\\1.1.1.1\testeinstall\testepackage.exe /S"

End If

Editado Abril 9, 2010 por raphael_suporte
tags code

[Raposo]

Alguém poderia me ajudar?

Att,

[quintelab]

Entendi que o problema tinha sido resolvido. Qual o problema?

Abraços...

[kuroi]

não entendi direito, você quer isso??

Set FSOSample = CreateObject("Scripting.FileSystemObject")

If FSOSample.FolderExists("C:\ProgramFiles\teste\teste.exe") Then
wscript.echo "Programa Teste instalado!!!"

Else
Set TESTE= createobject ("Wscript.Shell")
TESTE.Run "\\1.1.1.1\testeinstall\testepackage.exe /S"

End If

If FSOSample.FolderExists("C:\ProgramFiles\teste\teste2.exe") Then
wscript.echo "Programa Teste instalado!!!"

Else
Set TESTE= createobject ("Wscript.Shell")
TESTE.Run "\\1.1.1.1\testeinstall\testepackage.exe /S"

End If[/code]