Muy buenos días.
Tengo un error que se me está generando al querer guardar una imagen usando visual basic 6.
Esta es una aplicación en donde yo le doy la ruta para guardar una serie de archivos, pero al tomar la ruta para guardar la imagen se cae.
En la ventana yo cargo mi archivo y la carpeta por defecto que tiene por destino es "C:\RenegPagares", al presionar el botón "Generar Seleccionados" la parte del código que se ejecuta para generar la imagen que necesito es:
Dim rutCodigoDeBarra As Image = GeneraCodigoBarra(textoCodigoBarra)
Dim archivoCidigoBarras As String = rutaSalida + Now.Date.ToString("yyyyMMdd") + "\CodigoBarra\" + "codigobarras_" + rut.PadLef(9,"0") + "_" + operacionOri + "png"
If System.IO.File.Exist(archivoCodigoBarras) Then
System.IO.File.Detele(archivoCodigoBarras)
End If
Dim rutCodigoDeBarra.Save(archivoCodigoBarras, Sistem.Drawing.Imaging.ImageFormat.Png)
El código de GeneraCodigoBarra es:
Private Function GeneraCodigoBarra(ByVal rutCliente As String) As Image
Dim imagenCodigoBarra As Image
imagenCodigoBarra = Code128Rendering.MakeBarcodeImage(rutcliente, 1, True)
Return imagenCodigoBarra
End Function
Dentro de lo que estuve buscando en google llegué a: link 1 , link 2.
Agregado además que en esta ruta por defecto que estoy poniendo el programa no tiene ningún problema para guardar los archivos que genero y la imagen.
Pero si la cambio a, por ejemplo, una carpeta del escritorio, ahí es cuando me da el error.
Agrego una imagen de la ruta que se genera al mandar a guardar a una carpeta del escritorio:
la ruta es:
C:\Users\smiranda.apiux\Desktop\CAPTURAS\20210816\CodigoBarra\codigobarras_rutcliente_131.png
Si a alguien le a pasado algo similar o me puede indicar en donde está mi error se lo agradecería mucho.
Muchas Gracias.