Código:
y la funcion de copiar imagen esMe.CommonDialog1Open.FileName = "logo.jpg" destino = My.Application.Info.DirectoryPath & "\" If CommonDialog1Open.FileName <> "" Then Call CopiarImagen(rutaImagen, destino & "Logo.jpg") sql4 = sql4 & "'" & destino & "Logo.jpg','" Else sql4 = sql4 & "'','" End If
Código:
bueno espero y puedan echarme la mano, se los agradeceria muchisimo, les doy las gracias de antemano y les envio un cordial saludo 'Copy a file On Error GoTo error_Renamed FileCopy(StartPath, EndPath) Exit Sub error_Renamed: MsgBox(Err.Description, MsgBoxStyle.Exclamation, "Error")