how to get a picture file from a server folder using vb6
Posted on 2013-01-30
I'm working in an application that works like a contacts and each one has a its own picture face, the aplication already select the picture, show it on the form, rename it and save it in a server folder, the rest of the information is saved in a MySQL Database.
Each record has its own Id key number so, the picture is renamed with the same Id Key number.
Now I need to edit the record and show the corresponding picture image on the form.
This is the code to save the file:
If lSihayfoto = True Then
rsFotos!Consecutivo = (nCveFoto + 1)
'***** LA SIGUIENTE RUTINA COPIA, RENOMBRA Y GUARDA LA FOTO EN C:\CCIME\Temp *****
'***** DESPUES LA GUARDA EN EL SERVIDOR YA RENOMBRADA CON EL NUMERO CONSECUTIDO DE FOTOS *****
cString = Trim(txtBuscaFoto.Text)
Name cString As "C:\CCIME\Temp\" & Format(cCveFoto, "0000") & ".jpg"
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.GetFile("C:\CCIME\Temp\" & Format(cCveFoto, "0000") & ".jpg").Copy "\\EXTLANSBS05\FotosCCIME\", True
Kill "C:\CCIME\Temp\" & Format(cCveFoto, "0000") & ".jpg"
Now I need to get the Picture file to show it on edit-from.
Thank you so much guys.