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")
