+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مسار سطح المكتب (/showthread.php?tid=19454)
الصفحات:
1
2
مسار سطح المكتب - bidaya - 28-02-17
السلام عليكم
كود :
zip.Save("مسار سطح المكتب "))وشكرا
RE: مسار سطح المكتب - مساعدة - 28-02-17
السلام عليكم
تفضل الكود،
كود :
Dim desktopPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)RE: مسار سطح المكتب - bidaya - 28-02-17
(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 ClassRE: مسار سطح المكتب - bidaya - 28-02-17
لم ينجح الكود معي
RE: مسار سطح المكتب - مساعدة - 01-03-17
لا أعرف طريقة أخرى غير Environment.SpecialFolder.Desktop لمعرفة مسار سطح المكتب يعمل على كل الأجهزة، حتى لو اختلف اسم المستخدم.
RE: مسار سطح المكتب - bidaya - 01-03-17
(01-03-17, 12:29 AM)مساعدة كتب : لا أعرف طريقة أخرى غير Environment.SpecialFolder.Desktop لمعرفة مسار سطح المكتب يعمل على كل الأجهزة، حتى لو اختلف اسم المستخدم.
الف الف شكر لك اخي الكريم الله يحفظك
سانتظر بقية الاساتذة الكرام
RE: مسار سطح المكتب - مساعدة - 01-03-17
قد يكون ما تقصده السطر التالي
كود :
zip.Save(desktopPath & "\" & (lst(lst.Count - 1) & ".zip"))يحتاج تجربته على أكثر من جهاز
RE: مسار سطح المكتب - bidaya - 01-03-17
(01-03-17, 12:41 AM)مساعدة كتب : قد يكون ما تقصده السطر التالي
كود :
zip.Save(desktopPath & "\" & (lst(lst.Count - 1) & ".zip"))
يحتاج تجربته على أكثر من جهاز
لم ينجح
وهل من الممكن اضافة SaveFileDialog للكود لتسهيل العملية
RE: مسار سطح المكتب - مساعدة - 01-03-17
اتمنى تذكر لم لم ينجح بدلا من هذا الاختصار!
ربنا يوفقك
RE: مسار سطح المكتب - bidaya - 01-03-17
(01-03-17, 02:14 AM)مساعدة كتب : اتمنى تذكر لم لم ينجح بدلا من هذا الاختصار!
ربنا يوفقك
اسف اخي لكي لا اعرف السبب الذي جعل الكود لا ينجح
البرنامج لا يظهر اي خطأ
شكرا لك اخي