28-02-17, 03:53 AM
الصفحات : 1 2
28-02-17, 03:56 AM
السلام عليكم
تفضل الكود،
تفضل الكود،
كود :
Dim desktopPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)28-02-17, 04:17 AM
(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 Class28-02-17, 10:31 PM
لم ينجح الكود معي
01-03-17, 12:29 AM
لا أعرف طريقة أخرى غير Environment.SpecialFolder.Desktop لمعرفة مسار سطح المكتب يعمل على كل الأجهزة، حتى لو اختلف اسم المستخدم.
01-03-17, 12:38 AM
(01-03-17, 12:29 AM)مساعدة كتب : [ -> ]لا أعرف طريقة أخرى غير Environment.SpecialFolder.Desktop لمعرفة مسار سطح المكتب يعمل على كل الأجهزة، حتى لو اختلف اسم المستخدم.
الف الف شكر لك اخي الكريم الله يحفظك
سانتظر بقية الاساتذة الكرام
01-03-17, 12:41 AM
قد يكون ما تقصده السطر التالي
يحتاج تجربته على أكثر من جهاز
كود :
zip.Save(desktopPath & "\" & (lst(lst.Count - 1) & ".zip"))يحتاج تجربته على أكثر من جهاز
01-03-17, 01:44 AM
(01-03-17, 12:41 AM)مساعدة كتب : [ -> ]قد يكون ما تقصده السطر التالي
كود :
zip.Save(desktopPath & "\" & (lst(lst.Count - 1) & ".zip"))
يحتاج تجربته على أكثر من جهاز
لم ينجح
وهل من الممكن اضافة SaveFileDialog للكود لتسهيل العملية
01-03-17, 02:14 AM
اتمنى تذكر لم لم ينجح بدلا من هذا الاختصار!
ربنا يوفقك
ربنا يوفقك
01-03-17, 02:24 AM
(01-03-17, 02:14 AM)مساعدة كتب : [ -> ]اتمنى تذكر لم لم ينجح بدلا من هذا الاختصار!
ربنا يوفقك
اسف اخي لكي لا اعرف السبب الذي جعل الكود لا ينجح
البرنامج لا يظهر اي خطأ
شكرا لك اخي
الصفحات : 1 2