none
Problema con actualizacion de imagenes RRS feed

  • Pregunta

  • Hola a todos! El problema es el siguiente, tengo una galería de fotos donde la ubicación de las imágenes se encuentran en una carpeta ("Fullsize").

    La cuestión es que al

    actualizar la galería, tengo que borrar todas las fotos anteriores y copiar las otras fotos de la carpeta.

    Des afortunadamente, no me funciona.

    Codigo:

    For i As Integer = 1 To 5 fileContents = p.getFotoJPG(i, Request.PhysicalApplicationPath, rutatemp) Dim ppi As System.Web.UI.HtmlControls.HtmlImage = CType(Me.FindControl("pp" & i), System.Web.UI.HtmlControls.HtmlImage) Try My.Computer.FileSystem.DeleteFile(Request.PhysicalApplicationPath & "\Fullsize\" & i & ".jpg", FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently) Catch ex As Exception End Try If Not fileContents Is Nothing Then tipo = Right(rutatemp, 4) cant = CInt(Right(rutatemp, 5).Replace(Right(rutatemp, 3), "")) Try My.Computer.FileSystem.DeleteFile(Request.PhysicalApplicationPath & "\ImgTemp\House_" & p.id & "-" & i & "-" & cant + 1 & tipo.ToLower(), FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently) Catch ex As Exception cant = 0 End Try My.Computer.FileSystem.WriteAllBytes(Request.PhysicalApplicationPath & "\ImgTemp\House_" & p.id & "-" & i & "-" & cant + 1 & tipo.ToLower(), fileContents, False) ppi.Src = "ImgTemp/House_" & p.id & "-" & i & "-" & cant + 1 & tipo.ToLower() Else fileContents = ImageProcesing.ImageP.ResizeImageFile(p.getFotoDefault(Request.PhysicalApplicationPath), ERP.DataAccess.DbConfiguracion.selectById(6).valor, ERP.DataAccess.DbConfiguracion.selectById(7).valor) End If My.Computer.FileSystem.WriteAllBytes(Request.PhysicalApplicationPath & "\Fullsize\" & i & ".jpg", fileContents, False)

    Next

    Gracias de antemano!


    miércoles, 24 de abril de 2013 14:42