\r\n
Hi,
\r\nThe SelfExtractorSaveOptions are not working for me for some reason in this code, i want the .exe file to extract the folder with the files into a specific folder.("c:\\extract_temp")\r\n right now its extracting it into the same folder it was downloaded to.
\r\non another note. is it possible to tell the OutputStream to give the browser a default location of where to save the file ?\r\n
\r\nfor example. i would like that when the button is clicked, it will open the "save to" dialog with the preferred folder already appearing as the default location.
\r\nThanks.
\r\n\r\n\r\n
\r\n Protected Sub Download1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Download1.Click\r\n Try\r\n System.Threading.Thread.CurrentThread.CurrentCulture = New System.Globalization.CultureInfo("he-IL")\r\n Dim emptyCheckboxList As Boolean = False\r\n Dim ItemsNum As Int32 = chklst.Items.Count()\r\n Dim MyFileStream As FileStream\r\n Dim FileSize As Long\r\n Dim fp As StreamWriter\r\n Dim log As log4net.ILog\r\n\r\n Dim exeFileName As String = context.user.identity.name & "_" & DateTime.Now.ToString("ddMMyyyy") & "_" & DateTime.Now.ToString("HHmmss") & ".exe"\r\n\r\n Response.Clear()\r\n\r\n Using zip As New ZipFile()\r\n\r\n For Each lstItem In chklst.Items\r\n debug1.Text = debug1.Text & "item"\r\n If lstItem.Selected = True Then\r\n emptyCheckboxList = True\r\n zip.AddFile(Server.MapPath(".\\files\\" & context.user.identity.name & "\\") & lstItem.ToString, DateTime.Now.ToString("ddMMyyyy") & "_" & DateTime.Now.ToString("HHmmss"))\r\n\r\n End If\r\n Next\r\n\r\n Dim options As New Ionic.Zip.SelfExtractorSaveOptions()\r\n options.DefaultExtractDirectory = "c:\\extract_temp"\r\n options.ExtractExistingFile = Ionic.Zip.ExtractExistingFileAction.OverwriteSilently\r\n options.Flavor = Ionic.Zip.SelfExtractorFlavor.ConsoleApplication\r\n options.Quiet = True\r\n options.RemoveUnpackedFilesAfterExecute = True\r\n\r\n zip.SaveSelfExtractor(Server.MapPath(".\\files\\temp\\") & exeFileName, SelfExtractorFlavor.ConsoleApplication)\r\n End Using\r\n \r\n \r\n MyFileStream = New FileStream(Server.MapPath(".\\files\\temp\\") & exeFileName, FileMode.Open)\r\n FileSize = MyFileStream.Length\r\n\r\n Dim Buffer(CInt(FileSize)) As Byte\r\n MyFileStream.Read(Buffer, 0, CInt(FileSize))\r\n MyFileStream.Close()\r\n\r\n Response.ContentType = "application/exe"\r\n Response.AddHeader("Content-Disposition", "attachment; filename=" & exeFileName)\r\n\r\n Using fs as New Filestream(Server.MapPath(".\\files\\temp\\") & exeFileName, FileMode.OpenOrCreate, FileAccess.Read)\r\n Dim Buffer2(2048) as Byte\r\n Dim n as Int32\r\n Do\r\n n = fs.Read(Buffer2, 0, 2048)\r\n Response.OutputStream.Write(Buffer2, 0, n)\r\n Loop While n > 0\r\n End Using\r\n Response.Flush()\r\n Response.Close()\r\n\r\n\r\n If emptyCheckboxList = False Then\r\n ErrorLbl.Text = "No File was chosen for download, please select files "\r\n Else\r\n ErrorLbl.Text = ""\r\n End If\r\n\r\n Catch ex As Exception\r\n ErrorLbl.Text = "Download_Click: " & ex.Message\r\n \r\n Return\r\n End Try\r\n System.Threading.Thread.CurrentThread.CurrentCulture = New System.Globalization.CultureInfo("en-US") \r\n End Sub\r\n\r\n