Compress multiple files as seperate archives

Sep 9, 2010 at 12:42 PM

Hi all, working in (vs 2010) i have a drag/drop function which takes the dropped item (file or folder) and compresses it accordingly, what im now trying to do is have an option to compress each file with in the dropped folder as a seperate archive named after the file.

So for the sake of this lets say im using an openfolderdialog, can somebody point me at where to start, heres what i have:


            Dim rootI As New DirectoryInfo(Folder.selectedpath)

            For Each fi As FileInfo In rootI.GetFiles("*.*", SearchOption.AllDirectories)



Any help would be much appreciated, thank you.