Tenho um situação que é a seguinte, tenho o servidor e os clientes, se tiver no servidor os endereços dos arquivos são um, e se tiver pela rede é outro. O que preciso é verificar se o arquivo existe em um endereço e caso não exista ele carregue o outro endereço.
Segue abaixo exemplo:
If funcionario.Text = "REVENDA PRINT" Then
se tiver a imagem ("Z:User.jpg") então carregue
Image1.Picture = LoadPicture("Z:User.jpg")
senão
Image1.Picture = LoadPicture("E:Arquivos AQUINova Planilha Revenda PrintSistema V2User.jpg")
fim checagem imagem
End If
Atenciosamente,
Alex Lacerda
[email protected]
Postado : 25/04/2012 8:14 am