COMMONDIALOGS
Estou trabalhando com o CommonDialog para salvar arquivos de texto.
Gostaria que alguém me ajudasse a exibir uma caixa de mensagens ao usuário, avisando se um arquivo já existe, logo depois que ele clicar no botão salvar do CommonDialog.
Se o arquivo não existir, o programa salva direto;
Se o arquivo existir, a caixa de mensagens aparece perguntando se ele quer substituir o arquivo.
Obrigado
If Dir(CommonDialog1.FileName,vbArchive)<>[Ô][Ô] Then
Pergunta = Msgbox([Ô]Arquivo ja existe, deseja substitui-lo?[Ô],vbQuestion + VbYesNo,[Ô]Arquivo já existe![Ô])
If Pergunta = vbNo Then Exit Sub
End if
Pergunta = Msgbox([Ô]Arquivo ja existe, deseja substitui-lo?[Ô],vbQuestion + VbYesNo,[Ô]Arquivo já existe![Ô])
If Pergunta = vbNo Then Exit Sub
End if
Valeu, Obrigado
Tópico encerrado , respostas não são mais permitidas