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

كود :
zip.Save("مسار سطح المكتب "))
اريد تكملة الكود بالحفظ على سطح المكتب على اي نظام
وشكرا
الرد }}}
تم الشكر بواسطة:
#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
هذا هو الكود اريد عملية الحفظ تكون على سطح المكتب
الرد }}}
تم الشكر بواسطة: sendbad100
#4
لم ينجح الكود معي
الرد }}}
تم الشكر بواسطة:
#5
لا أعرف طريقة أخرى غير Environment.SpecialFolder.Desktop لمعرفة مسار سطح المكتب يعمل على كل الأجهزة، حتى لو اختلف اسم المستخدم.
الرد }}}
تم الشكر بواسطة: bidaya
#6
(01-03-17, 12:29 AM)مساعدة كتب : لا أعرف طريقة أخرى غير Environment.SpecialFolder.Desktop لمعرفة مسار سطح المكتب يعمل على كل الأجهزة، حتى لو اختلف اسم المستخدم.

الف الف شكر لك اخي الكريم   الله يحفظك
سانتظر بقية الاساتذة الكرام
الرد }}}
تم الشكر بواسطة:
#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 للكود لتسهيل العملية
الرد }}}
تم الشكر بواسطة:
#9
اتمنى تذكر لم لم ينجح بدلا من هذا الاختصار!

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

ربنا يوفقك

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] تحويل المشروع سطح المكتب للعمل على الويب Doby 3 359 13-01-24, 04:22 AM
آخر رد: dr.programming
  [سؤال] كيف نستعيد قيمة من دالة ضمن مسار مستقل justforit 2 393 21-11-23, 10:51 AM
آخر رد: justforit
  السلام عليكم اريد فتح تطبيق Whatsapp علما بان الواتس ليس لديه مسار ملف بويندوز 10 moh61 7 542 02-08-23, 10:00 PM
آخر رد: ahmed_king2023
  مساعدة : طريقة إظهار مسار المستند و فتحه أبووسم 2 464 29-07-23, 04:20 AM
آخر رد: أبووسم
  تحديد مسار البرنامج atefkhalf2004 12 5,089 24-06-23, 10:28 PM
آخر رد: سعود
  انشاء القاعدة سكول في مسار محدد atefkhalf2004 6 767 17-04-23, 04:48 PM
آخر رد: DanSmith
  [سؤال] كيفيه حفظ ملف الي مسار محدد في الكمبيوتر حسن الجلب 2 681 09-09-22, 03:37 AM
آخر رد: asmarsou
Star ҉ كتابة مسار ملف معين File Path ҉ أبو خالد الشكري 15 1,751 04-09-22, 07:08 PM
آخر رد: Taha Okla
  ماهي طريقة عمل download لصورة من قاعدة البيانات sql إلى سطح المكتب ؟ جيولوجي مبتدئ 2 833 19-08-22, 10:53 PM
آخر رد: جيولوجي مبتدئ
  كيف أعدل مسار قاعدة البيانات safralfahd 2 1,125 10-02-22, 08:54 AM
آخر رد: safralfahd

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


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