Boa tarde pessoal...
alguem pode me ajudar criar um erro ou mensagem. no botao abrir
bom o programinha funciona da seguinte forma...
ele abre imagens sequencias que esta em uma pasta no c: e eu gostaria de criar um erro ou mensagens para que na hora que chegasse ao fim do arquivo ele nao
parasse o programa.
Este é o codigo que estou usando, dando um numero de imagens que contem na pasta, mas eu não quero dar o numero quero que ele de a mensagem quando não houver aquele mais arquivo dentro da pasta ou quando aquele nº que foi digitado não exitir dentro da pasta. Os Arquivos estão sendo salvos por numeros sequenciais dentro da pasta do c:.
Private Sub cmdAbrir_Click()
Dim CaminhoArquivo As String
Dim Path As String
Dim cont As Integer
If txtCaminho <= 69 Then
CaminhoArquivo = txtCaminho
Path = "C:NOTASN"
Imagem.Image = Path & CaminhoArquivo & ".tif"
cont = 0
cont = txtCaminho + 1
txtCaminho = cont
Imagem.Display
Imagem.Zoom = 60
Imagem.ScrollPositionX = 1000
Imagem.Refresh
Else
MsgBox "Não há mais arquivos. Verifique!"
End If
End Sub
