localizar arquivo, via código, em outro PC em rede.

[Rogério Orlando 0]

Tenho um programa que administra funcionários de uma Empresa, o qual está instalado em várias máquinas, sendo que para visualizar as fotos dos funcionários sou obrigado a incluir em cada PC a foto de todos, conforme código abaixo:

 

 

caminho = Dir(App.Path & "\fotos\" & foto & ".jpg", 0)

 

If caminho <> "" Then

imgPM.Picture = LoadPicture(App.Path & "\fotos\" & foto & ".jpg")

Else

imgPM.Picture = LoadPicture(App.Path & "\fotos\semfoto.jpg")

End If

 

 

Gostaria de saber se existe algum código para que nos terminais onde não está o Banco de Dados (MySql), estem acessem as fotos no computar onde está o Banco.

 

Tentei algo como o abaixo, porém dá erro:

 

If strLocalFoto = "localhost" Then

strLocalFoto = "C:"

Else

strLocalFoto = strIpRemoto

End If

 

caminho = Dir("" & strLocalFoto & "C:\fotolocal\" & foto & ".jpg", 0) '(App.Path & "\fotos\" & foto & ".jpg", 0)

 

If caminho <> "" Then

imgPM.Picture = LoadPicture(" strLocalFoto & C:\fotolocal\" & foto & ".jpg") '(App.Path & "\fotos\" & foto & ".jpg")

Else

imgPM.Picture = LoadPicture("C:\fotolocal\semfoto.jpg") '(App.Path & "\fotos\semfoto.jpg")

End If

 

 

Agradeço desde já

[scorpio 7]

Você pode baixar elas através do winsock.

 

No http://www.vb-world.net/ tem um exemplo ,winsockfiletranfer, dá uma olhada lá, só não te explico isso por que eu nao cheguei a 'estudar' esse arquivo e agora to meio sem tempo pra olhar profundamente ele, mas qualquer coisa posta ae de novo que eu ou o pessoal responde concerteza (:P esqueci como se escreve)

 

flw

 

Qualquer coisa não esquece de gritar hein. hehhe

 

EDIT:

 

fazendo uma rapida pesquisa no google por acesso remote visual basic achei um link do Macoratti

http://www.macoratti.net/vb_rds.htm

 

acho que deve ser isso que você ta buscando

 

flw