Ir para conteúdo
Fórum Script Brasil
  • 0

Programa em VBS, alternando entre dois diretorios


Raposo

Pergunta

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 por quintelab
Removido Urgente da descrição
Link para o comentário
Compartilhar em outros sites

7 respostass a esta questão

Posts Recomendados

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0

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 por raphael_suporte
tags code
Link para o comentário
Compartilhar em outros sites

  • 0

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]

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...