none
Criar um Case RRS feed

  • Pergunta

  • Ba galera bom dia

    Tenho um grande conjunto de maquinas na qual eu tenho um aplicativo instalado em 3 caminhos diferentes porem cada maquina tem um dos 3 caminhos, gostaria de montar um select case que verifique o caminho e encontrando o caminho tome uma ação por exemplo:

    c:\caminho1
    c:\caminho2
    c:\caminho3

    Caso ache um dos treis caminhos ele chame uma outra função que ja tenho pronta.

     

    Alguem saberia como fazer.

    Obrigado tche.

     

    quarta-feira, 2 de março de 2011 14:41

Respostas

  • Amigo boa tarde, estou meio sem tempo, mais ta ai um exemplo que da pra vc entender melhor e bolar um de acordo com sua necessidade, se as pastas existir vai jogar a funçao abaixo do if, se nao existe ele pula pra proxima sem da msg alguma so vai executar se a pasta existir, ou seja ele vai checar todas os IFs, todas as pastas citadas caso encontrar ele executa a funçao que esta logo abaixo do if, se ele encontrar a pasta 1 ele executa a funçao da pasta 1 se ele mesmo encontrando e existir a pasta 2 ele vai executar tbm a funçao da pasta dois se existir somente uma das tres so vai executar a que ele encontrou explicado? valew

     

    'Script desenvolvido por Carlos.N.J

    On Error Resume Next

    Set FSOSample = CreateObject("Scripting.FileSystemObject")

     

    If FSOSample.FolderExists("c:\caminho1")  Then

    wscript.echo "c:\caminho1 Existe"

    End If

     

    If FSOSample.FolderExists("c:\caminho2")  Then

    wscript.echo "c:\caminho2 Existe"

    End If

     

    If FSOSample.FolderExists("c:\caminho3")  Then

    wscript.echo "c:\caminho3 Existe "

    End If

    'fim do script

    lembrando, foi testado e funcional, caso funcione classifique blz valew

    Carlos N.J
    Obs se util classifique

     

    • Sugerido como Resposta NJ.JrDnA quinta-feira, 3 de março de 2011 19:42
    • Marcado como Resposta Marcelo TI quinta-feira, 3 de março de 2011 22:33
    quinta-feira, 3 de março de 2011 18:16

Todas as Respostas

  • Ba galera ninguem sabe como me dar uma ajuda, nem é necessario ser um select case, pode ser um else sei la, a questão é saber se a maquina tem um dos 3 caminhos, e apos verificar a existencia de um dos 3, pular para um outro ponto do script para que ele chame um executavel.... fico no aguardo dos amigos e moderadores. abraço tche.
    quarta-feira, 2 de março de 2011 22:40
  • Pessoal

    Sereia algo assim, mais estou tendo o seguinte erro ( O objeto não dá suporte para a propriedade ou método, linha 6, caract 1.

     

    Set objNetwork = CreateObject("Wscript.Network")
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    Select Case objFSO
        Case "c:\windows"
           local1
        Case "c:\teste"
           local2
    End Select


    Sub local1()
      wscript.echo "Vc esta no diretorio 1"
    End sub


    sub local2()
      wscript.echo "Vc esta no diretorio 2"
    End sub

    quarta-feira, 2 de março de 2011 23:20
  • utilize o if exist, caso existir o diretorio ele executa uma funçao, caso nao, ele executa outra, ai é so ver como se encaixa, se entendi direito ele vai resolver seu problema, aqui no forum tem varios exemplos abraços obs se util classifique Carlos.nj
    • Sugerido como Resposta NJ.JrDnA quinta-feira, 3 de março de 2011 00:05
    • Não Sugerido como Resposta Marcelo TI quinta-feira, 3 de março de 2011 15:54
    quinta-feira, 3 de março de 2011 00:04
  • Carlos / Amigos.

    Como ficaria o script então, não conheço bem esta função if exist ???

     

    no aguardo.

     

    Obrigado.

    • Sugerido como Resposta NJ.JrDnA quinta-feira, 3 de março de 2011 17:55
    • Não Sugerido como Resposta NJ.JrDnA quinta-feira, 3 de março de 2011 17:55
    quinta-feira, 3 de março de 2011 15:55
  • Amigo boa tarde, estou meio sem tempo, mais ta ai um exemplo que da pra vc entender melhor e bolar um de acordo com sua necessidade, se as pastas existir vai jogar a funçao abaixo do if, se nao existe ele pula pra proxima sem da msg alguma so vai executar se a pasta existir, ou seja ele vai checar todas os IFs, todas as pastas citadas caso encontrar ele executa a funçao que esta logo abaixo do if, se ele encontrar a pasta 1 ele executa a funçao da pasta 1 se ele mesmo encontrando e existir a pasta 2 ele vai executar tbm a funçao da pasta dois se existir somente uma das tres so vai executar a que ele encontrou explicado? valew

     

    'Script desenvolvido por Carlos.N.J

    On Error Resume Next

    Set FSOSample = CreateObject("Scripting.FileSystemObject")

     

    If FSOSample.FolderExists("c:\caminho1")  Then

    wscript.echo "c:\caminho1 Existe"

    End If

     

    If FSOSample.FolderExists("c:\caminho2")  Then

    wscript.echo "c:\caminho2 Existe"

    End If

     

    If FSOSample.FolderExists("c:\caminho3")  Then

    wscript.echo "c:\caminho3 Existe "

    End If

    'fim do script

    lembrando, foi testado e funcional, caso funcione classifique blz valew

    Carlos N.J
    Obs se util classifique

     

    • Sugerido como Resposta NJ.JrDnA quinta-feira, 3 de março de 2011 19:42
    • Marcado como Resposta Marcelo TI quinta-feira, 3 de março de 2011 22:33
    quinta-feira, 3 de março de 2011 18:16