Foros del Web » Programando para Internet » ASPX (.net) »

Convertir mi descarga a RAR

Estas en el tema de Convertir mi descarga a RAR en el foro de ASPX (.net) en Foros del Web. Hola Tengo un ligero problema, primero que nada tengo ya una función "CP" que lo que hace es que dentro de un Gridview junta archivos ...
  #1 (permalink)  
Antiguo 01/04/2014, 15:59
 
Fecha de Ingreso: octubre-2013
Ubicación: df
Mensajes: 13
Antigüedad: 10 años, 9 meses
Puntos: 0
Convertir mi descarga a RAR

Hola

Tengo un ligero problema, primero que nada tengo ya una función "CP" que lo que hace es que dentro de un Gridview junta archivos dentro de una carpeta......

Entonces mi problema es como hago para que esa carpeta al momento que un usuario descargue esa carpeta la convierta a .RAR

Esta es mi consulta y lo que ya tengo.

Protected Sub btnExportarPDFs_Click(sender As Object, e As EventArgs) Handles btnExportarPDFs.Click
lblError.Visible = False


Try
Dim LocalToolFile As String = txtRutaDescarga.Text & "\"
Dto.CUENTA = txtCuenta.Text
Dto.FECHACREACION = txtFechaDe.Text
Dto.SEGUROSOCIAL = txtSeguroSocial.Text
Dto.TIPOCARTA = ddlTipoUsuario.SelectedItem.Text
Dto.FECHACREACIONA = txtfechaa.Text
DATOS = Dao.INFORMACIONCARTASPDF(Dto, Q)

Dim CP As String = "C:\inetpub\wwwroot\PRODUCCION\SACyG_PRUEBAS_A \" & Session("IDUSUARIO") & "_Carpeta"
If System.IO.Directory.Exists(CP) = True Then
My.Computer.FileSystem.DeleteDirectory(CP, FileIO.UIOption.AllDialogs, FileIO.RecycleOption.SendToRecycleBin)
End If
Directory.CreateDirectory(CP)

Dim dgv As System.Web.UI.WebControls.DataGrid = New System.Web.UI.WebControls.DataGrid
dgv.Dispose()
dgv.DataSource = DATOS
dgv.DataBind()
Dim NRow As Integer = DATOS.Rows.Count
Dim NCol As Integer = DATOS.Columns.Count
Dim linea As String
For fila As Integer = 0 To NRow - 1
linea = ""
linea = dgv.Items(fila).Cells(5).Text.ToString
My.Computer.FileSystem.CopyFile("D:\FTP_APLICACION ES\DOCS_SACyG\" & linea, CP & "\" & linea)
Next

********** en esta parte de abajo es donde trato de convertir mi carpeta a .RAR******

Dim tempFileName As String = "C:\inetpub\wwwroot\PRODUCCION\SACyG_PRUEBAS_A \" & Session("IDUSUARIO") & "carga.bat"
Dim swg As New IO.StreamWriter(tempFileName)
swg.WriteLine("for %%d in (" & Session("IDUSUARIO") & "_Carpeta" & ") do start/wait/realtime winrar m -m5 -ri15 " & Chr(34) & "%%~nd" & Chr(34) & " " & Chr(34) & "%%~nd" & Chr(34))
swg.Close()
Try

Process.Start(tempFileName)

Response.Redirect("http://'mi ip'/DOCS_SACyG/" & Session("IDUSUARIO") & "_Carpeta.rar")

Etiquetas: asp, fila, gridview, rar, text
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 08:47.