Notifications
Clear all

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

3 Posts
2 Usuários
0 Reactions
1,196 Visualizações
chook
(@chook)
Posts: 197
Estimable 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

Atenciosamente,

Alex Lacerda
[email protected]

 
Postado : 25/04/2012 8:14 am
Fernando Fernandes
(@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.....

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

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

Perfect!

Atenciosamente,

Alex Lacerda
[email protected]

 
Postado : 25/04/2012 12:00 pm