تقييم الموضوع :
  • 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]
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكلة نقل الملف من الريسورس لسطح المكتب محمد اسماعيل 4 78 28-02-18, 11:24 AM
آخر رد: silverlight
  تغير مسار تنصيب البرنامج altho8 0 28 19-02-18, 05:38 PM
آخر رد: altho8
  [VB.NET] جلب مسار البرنامج محمد اسماعيل 3 42 19-02-18, 09:22 AM
آخر رد: ammar2018
  تصميم برنامج تصوير سطح المكتب الميساني 4 134 09-01-18, 08:44 PM
آخر رد: الميساني
  جلب اسم مجلد في مسار ثابت bidaya 2 86 02-01-18, 01:35 AM
آخر رد: bidaya
  تغيير خلفية سطح المكتب أحمد فتح الرحمن 4 169 13-12-17, 11:42 PM
آخر رد: أحمد فتح الرحمن
  تساؤل حول مسار قاعدة البيانات بعد التحزيم عبد العزيز البسكري 16 497 30-11-17, 11:35 PM
آخر رد: عبد العزيز البسكري
  أشلون جلب مسار ملجد في شبكه طـلال 0 83 13-11-17, 02:47 PM
آخر رد: طـلال
  [سؤال] اظهار ايقونة على سطح المكتب حين الانتهاء من تنفيذ الكود ابو روضة 10 315 09-11-17, 12:02 PM
آخر رد: ابو روضة
  كيف نقل مشروع سطح المكتب للويب a.baomar 6 254 06-09-17, 03:35 AM
آخر رد: سعود

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


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