Reputation: 1 Apprentice
- Active Posts:
- 35 (0.03 per day)
- 22-November 10
- Profile Views:
- Last Active:
- Sep 25 2012 04:23 AM
- Dream Kudos:
Posts I've Made
Posted 18 Sep 2012There's always LZMA..
So that might be the solution by using a dictionary compression from a 3rd party file conversion tool
Posted 18 Sep 2012I've found that code and I modify it and still didn't worked for me
For Each lz As String In ListBox1.Items Dim z As System.IO.Packaging.ZipPackage z = System.IO.Packaging.Package.Open("Archive" & ".zip", IO.FileMode.Create) Dim B = System.IO.File.ReadAllBytes(lz) Dim partUriDocument As Uri = System.IO.Packaging.PackUriHelper.CreatePartUri(New Uri(System.IO.Path.GetFileName(lz), UriKind.Relative)) Dim P = z.CreatePart(partUriDocument, System.Net.Mime.MediaTypeNames.Application.Zip, IO.Packaging.CompressionOption.Maximum) P.GetStream.Write(B, 0, B.Length) z.Close() NextDid you try copying the files into a temporary folder and compressing that?
Well I don't want to use that method cause there is large files that should be compressed that might take a long time to copy it then to compress it
Posted 18 Sep 2012For starters, it will do you wonders to come up with more descriptive names for your UI elements. ListBox1 and Button1 don't tell people looking at the code which is which.
As modi asked, what problems did you have with GZip and DotNetZip? Can you show us any of the code you've actually used to try to do the compression?
For the DotNetZip I could not load it in the reference so it didn't worked and for the gzip I couldn't find the specific code to compress multiple files location .Gzip worked for me by compressing a folder
Posted 8 Jul 2012Of course it is, the label will be what the last condition in the the for-loop results in choosing.
Accessing Resource in vb.net is simple as;-
So in my case what should I do in order to solve my problem - If the site was included in the "sites.txt" the label should be Infected and if the site wasn't included in the "sites.txt" the label should be Not Infected -Here I strongly suggest you to put a breakpoint and debug your code. My guess is that at the end of every LineParts value is a CR_LF(Carriage return and Line feed = Enter). A breakpoint will help you to see the value of that variable at each step.
Also, you may find Contains method more useful
if LineParts.Contains(TextBox1.Text) then 'set infected else 'set not infected end if
Furthermore, you can shorten your code by using IIf
Label1.Text = IIf(LineParts.Contains(TextBox1.Text), "Infected", "Not infected")
thanks Ionut you solved my problem
- Member Title:
- New D.I.C Head
- Age Unknown
- Birthday Unknown
- Click here to e-mail me