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