Mensagem Clarion com Pergunta - Clarion/matos/amarildo

CASE MESSAGE('Você deseja Gerar a página HTML?','Sucesso na geração do Arquivo',ICON:Question,BUTTON:Yes+BUTTON:No,BUTTON:No,1)
OF BUTTON:No
CYCLE
OF BUTTON:Yes
DeleteFile('\amarildo\a.txt')
end