Notifications
Clear all

Verificar a existência de um arquivo e alterar o comando

3 Posts
2 Usuários
0 Reactions
1,183 Visualizações
(@chook)
Posts: 197
Reputable Member
Topic starter
 

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

 
Postado : 25/04/2012 8:14 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Experimente:
If funcionario.Text = "REVENDA PRINT" Then
If (Dir("Z:User.jpg") <> "") Then
Image1.Picture = LoadPicture("Z:User.jpg")
End If
else.....

 
Postado : 25/04/2012 11:38 am
(@chook)
Posts: 197
Reputable Member
Topic starter
 

Perfect!

 
Postado : 25/04/2012 12:00 pm