Jump to content
Fórum Script Brasil
  • 0

Comando Shell No Vb6


itibere
 Share

Question

Por favor estou com um problema para usar a função shell do vb,

eu crie uma aplicação que chama um arquibo .bat, esse arquivo nada mais é do que duas linha de comando:.

Nome do Arquivo:teste.bat

com os comandos abaixo:

dir c: /s

teste.bat 'aqui ele chama a si mesmo como se fosse um loop infinito

O codigo no vb é o seguinte:

Private Sub rodar_Click()

For x = 1 To txtVezes.Text ' caixa de testo que diz quantas vezes vai rodar

RetVal = Shell("C:\teste.bat", 1)

Next x

End

End Sub

ou seja se eu digita 10 vezes ele tem que abrir 10 telas do DOS com o arquivo teste.bat e fica rodando elas ate eu fechar

O codigo funciona, mas tem um problema, as telas do DOS fecham sozinhas depois que acaba de ser executado, o que não era para aconter, pois dentro do arquivo teste.bat ele chama a si mesmo indefinidadmente,

se eu chamar o aruqivo de forma normal(duplo clique fica rodando ate eu fechar), mas pelo programa ele roda uma fez e encera.

Laguém sabe o que pode ser? :wacko:

Obrigado.

Link to comment
Share on other sites

2 answers to this question

Recommended Posts

  • 0

O problema aí é o caminho do arquivo teste.bat. Como você não está especificando ele todo, usa-se o caminho relativo e então procura-se o arquivo teste.bat no diretório corrente. E na verdade ele não está no diretório corrente e sim na raíz. Basta, no arquivo bat você colocar:

dir c: /s
c:\teste.bat

Note o "c:\" na frente de "teste.bat". Aí sim vai funcionar.

Abraços,

Graymalkin

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      151k
    • Total Posts
      649k
×
×
  • Create New...