ERRO AO PROCURAR ARQUIVO EM CAMINHO INEXISTENTE

WEBIER 29/05/2012 09:43:08
#403058
tenho o seguinte código:

If Not IsNull(RS_Conf!FUNDO_PDV) Then Me.Picture = LoadPicture(RS_Conf!FUNDO_PDV)


ele primeiro verifica se o campo é nulo... se nao for ele deve mostrar a imagem que o caminho está no campo FUNDO_PDV

caso o caminho esteja certo e a imagem esteja realmente nesse local, FUNCIONA

Agora se o caminho apontar para um local(pasta) onde nao tem a imagem, dar o erro dizendo que o arquivox nao foi encontrado.

que devo fazer?
ALEVALE 29/05/2012 10:28:08
#403060
Resposta escolhida
VB6 ??

Utilize a biblioteca do FSO..

If fso.fileexists([Ô]C:\FUNDO_PDV.JPG[Ô])=true then
msgbox([Ô]Imagem existe ![Ô])
Endif
Tópico encerrado , respostas não são mais permitidas