Painel de líderes

nossa ,,, não acredito,, muito obrigada!! muito obrigada mesmo!!

Excelente, Juan! O Sleep aliado ao DoEvents funciona muito bem! Muito obrigado, talvez só não utilizarei o tempo de espera, pois de qualquer forma quero que a aplicação espere o arquivo, pois preciso que o mesmo retorne a Chave ou a resposta ao usuário final, pois caso esse tempo estoure, a aplicação não receberá a informação... Acho que dá certo desse jeito também, né?

Eu uso o VB6 Tenho uma função quase do mesmo jeito, tenho um loop mas com um (sleep( 1000)) pra esperar um tempo antes da próxima consulta do arquivo e um limite de tempo pra o caso do arquivo não ser criado. Dessa forma ele fica esperando o tempo que for necessário. 10190 RetVal = Dir("C:\nfce-app\acbrSAIDA\Pedido-resp.TXT") ' Verifica o arquivo 10195 Do While (RetVal <> "Pedido-resp.TXT") 'Entra no loop com a condição de não existir o arquivo 10200 Sleep (1000) 'Espera 1 segundo antes de executar a proxima linha 10205 RetVal = Dir("C:\nfce-app\acbrSAIDA\Pedido-resp.TXT") 'Verifica o arquivo denovo 10210 If temp8 = "7" And RetVal <> "Pedido-resp.TXT" Then 'caso o tempo de execução da rotina for maior que 7 segundos e ainda não exista o arquivo 10215 GoTo saidoloop ' eu desisto de le-lo. 10220 End If ' 10225 temp8 = CCur(temp8) + CCur(1) ' Incrementa a contagem do tempo DoEvents 'Deixa o Windows fazer alguma coisa 10230 Loop ' 10235 saidoloop: '

existe diversos topicos falando do assunto segue um