تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مسار سطح المكتب
#1
السلام عليكم

كود :
zip.Save("مسار سطح المكتب "))
اريد تكملة الكود بالحفظ على سطح المكتب على اي نظام
وشكرا
[صورة مرفقة: 000.gif]
الرد
تم الشكر بواسطة:
#2
السلام عليكم

تفضل الكود،
كود :
Dim desktopPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
الرد
تم الشكر بواسطة:
#3
(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
هذا هو الكود اريد عملية الحفظ تكون على سطح المكتب
[صورة مرفقة: 000.gif]
الرد
تم الشكر بواسطة: sendbad100
#4
لم ينجح الكود معي
[صورة مرفقة: 000.gif]
الرد
تم الشكر بواسطة:
#5
لا أعرف طريقة أخرى غير Environment.SpecialFolder.Desktop لمعرفة مسار سطح المكتب يعمل على كل الأجهزة، حتى لو اختلف اسم المستخدم.
الرد
تم الشكر بواسطة: bidaya
#6
(01-03-17, 12:29 AM)مساعدة كتب : لا أعرف طريقة أخرى غير Environment.SpecialFolder.Desktop لمعرفة مسار سطح المكتب يعمل على كل الأجهزة، حتى لو اختلف اسم المستخدم.

الف الف شكر لك اخي الكريم   الله يحفظك
سانتظر بقية الاساتذة الكرام
[صورة مرفقة: 000.gif]
الرد
تم الشكر بواسطة:
#7
قد يكون ما تقصده السطر التالي
كود :
zip.Save(desktopPath & "\" & (lst(lst.Count - 1) & ".zip"))

يحتاج تجربته على أكثر من جهاز
الرد
تم الشكر بواسطة:
#8
(01-03-17, 12:41 AM)مساعدة كتب : قد يكون ما تقصده السطر التالي
كود :
zip.Save(desktopPath & "\" & (lst(lst.Count - 1) & ".zip"))

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

لم ينجح
وهل من الممكن اضافة SaveFileDialog للكود لتسهيل العملية
[صورة مرفقة: 000.gif]
الرد
تم الشكر بواسطة:
#9
اتمنى تذكر لم لم ينجح بدلا من هذا الاختصار!

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

ربنا يوفقك

اسف اخي لكي لا اعرف السبب الذي جعل الكود لا ينجح
البرنامج لا يظهر اي خطأ
شكرا لك اخي
[صورة مرفقة: 000.gif]
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ازالة اختصارات سطح المكتب ابو روضة 6 132 07-10-18, 08:55 AM
آخر رد: ابو روضة
  نسخ قاعد بيانات اكسس من مسار الى اخر وتغير الاسم nabil.1710 6 159 25-09-18, 10:55 AM
آخر رد: elgokr
  [VB.NET] تحديد مسار قاعدة بيانات أكسس Access اثناء تشغيل البرنامج VB.net كريم جودي 3 198 30-08-18, 01:57 PM
آخر رد: elgokr
  [سؤال] كود مسار سطح المكتب وحفظ ملف ورد أبوسعود 2 172 24-06-18, 11:04 PM
آخر رد: أبوسعود
  احتاج مساعدتكم لتغيير رقم المكتب mram3242 3 163 22-05-18, 03:39 AM
آخر رد: elgokr
  [VB.NET] مشكلة نقل الملف من الريسورس لسطح المكتب محمد اسماعيل 4 192 28-02-18, 11:24 AM
آخر رد: silverlight
  تغير مسار تنصيب البرنامج altho8 0 131 19-02-18, 05:38 PM
آخر رد: altho8
  [VB.NET] جلب مسار البرنامج محمد اسماعيل 3 201 19-02-18, 09:22 AM
آخر رد: ammar2018
  تصميم برنامج تصوير سطح المكتب الميساني 4 239 09-01-18, 08:44 PM
آخر رد: الميساني
  جلب اسم مجلد في مسار ثابت bidaya 2 198 02-01-18, 01:35 AM
آخر رد: bidaya

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم