[bidaya]

(28-02-17, 03:56 AM)مساعدة كتب : السلام عليكم

تفضل الكود،

كود :

Dim desktopPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)

السلام عليكم
شكرا اخي على الاجابة السريعة

كود :

Imports System.ComponentModel
Imports System.IO
Imports Ionic.Zip
Imports System
Public Class Form1
   Dim lst As New List(Of String)
   Dim ofd As OpenFileDialog
   Dim zip_pass As String = ""

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       save()
   End Sub
   Dim zip As ZipFile
   Private Sub save()

       zip_pass = ("abc")
       lst.Clear()
       lst.Add("ee")
       zip = New ZipFile
       zip.Password = zip_pass
       For a = 0 To lst.Count - 1
           zip.AddDirectory("C:\folder")
       Next
       If zip.Count > 0 Then
           zip.Save(".\" & (lst(lst.Count - 1) & ".zip"))
       End If


   End Sub
   End Class

هذا هو الكود اريد عملية الحفظ تكون على سطح المكتب