[bidaya]

السلام عليكم

كود :

zip.Save("مسار سطح المكتب "))

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

[مساعدة]

السلام عليكم

تفضل الكود،

كود :

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

[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

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

[bidaya]

لم ينجح الكود معي

[مساعدة]

لا أعرف طريقة أخرى غير Environment.SpecialFolder.Desktop لمعرفة مسار سطح المكتب يعمل على كل الأجهزة، حتى لو اختلف اسم المستخدم.

[bidaya]

(01-03-17, 12:29 AM)مساعدة كتب : لا أعرف طريقة أخرى غير Environment.SpecialFolder.Desktop لمعرفة مسار سطح المكتب يعمل على كل الأجهزة، حتى لو اختلف اسم المستخدم.

الف الف شكر لك اخي الكريم   الله يحفظك
سانتظر بقية الاساتذة الكرام

[مساعدة]

قد يكون ما تقصده السطر التالي

كود :

zip.Save(desktopPath & "\" & (lst(lst.Count - 1) & ".zip"))

---

يحتاج تجربته على أكثر من جهاز

[bidaya]

(01-03-17, 12:41 AM)مساعدة كتب : قد يكون ما تقصده السطر التالي

كود :

zip.Save(desktopPath & "\" & (lst(lst.Count - 1) & ".zip"))

---

يحتاج تجربته على أكثر من جهاز

لم ينجح
وهل من الممكن اضافة SaveFileDialog للكود لتسهيل العملية

[مساعدة]

اتمنى تذكر لم لم ينجح بدلا من هذا الاختصار!

ربنا يوفقك

[bidaya]

(01-03-17, 02:14 AM)مساعدة كتب : اتمنى تذكر لم لم ينجح بدلا من هذا الاختصار!

ربنا يوفقك

اسف اخي لكي لا اعرف السبب الذي جعل الكود لا ينجح
البرنامج لا يظهر اي خطأ
شكرا لك اخي