Executa um programa no sistema operacional e aguarda seu encerramento
Exemplo da Rotina:
WaitRun([Programa ou Instrução], [Opção])
Exemplo 1- Executando um .bat:
cCaminho := "C:\totvs\temp\" cPrograma := "teste.bat" WaitRun(cCaminho + cPrograma, 2)
Exemplo 2- Copiando um arquivo para um caminho de rede:
cOrigem := "C:\totvs\temp\" cArquivo := "relatorio.pdf" cDestino := "\\SERVIDOR-BELUGA\pasta_relatorios\" WaitRun("XCOPY " + cOrigem + cArquivo + ' ' + cDestino +" /y")
Observações:
– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
– Se tiver sugestões de rotinas, pode entrar em contato;
Referências:
– TDN