Imports System.IO
Imports System.IO.Compression
Module Module1
Sub Main()
Dim startPath As String = "c:\example\start"
Dim zipPath As String = "c:\example\result.zip"
Dim extractPath As String = "c:\example\extract"
ZipFile.CreateFromDirectory(startPath, zipPath)
ZipFile.ExtractToDirectory(zipPath, extractPath)
End Sub
End Moduleأين الخطأ في هذا الكود وما هو تصحيحه
معذرة الصورة المرفقة خاطئة
تم تعديل هذه المشاركة بواسطة عمرو عماد في 10 مارس 2013 في 16:33
قد يفيدك هذا الرابط
سبحانه الله وبحمده سبحانه الله العظيم
if (You Love ArabTeam2000 ) MessageBox.Show("All ArabTeam2000 Love You"); else MessageBox.Show("go to your mama"); جزاكم الله خيرا .. لكنها لم تكن طلبي
وطلبي في هذا الكود وهو صحيح
Imports Shell32
Dim sc As New Shell32.Shell()
IO.Directory.CreateDirectory("C:\")
Dim output As Shell32.Folder = sc.NameSpace("C:\")
Dim input As Shell32.Folder = sc.NameSpace("C:\AMR.zip")
output.CopyHere(input.Items, 4)
System.IO.File.Delete("C:\AMR.zip")