07-07-17, 06:26 PM
الصفحات : 1 2
07-07-17, 07:01 PM
بأي طريقة ضغطت الملف؟
08-07-17, 12:57 PM
مثل موضوعك هذا
http://vb4arb.com/vb/showthread.php?tid=20883
ولكن هو يحفظ الملف فى الذاكرة وليس فى مكان على الجهاز
http://vb4arb.com/vb/showthread.php?tid=20883
ولكن هو يحفظ الملف فى الذاكرة وليس فى مكان على الجهاز
08-07-17, 04:27 PM
إعكس عملية التشفير
وأخبرني بالنتائج
وأخبرني بالنتائج
09-07-17, 12:35 AM
معرفتش للاسف يريت لو كود يعمل كدا او تجرب على الملف الى بعتهولك وتقلى الطريقة
09-07-17, 04:31 PM
مافيش ملفات وصلت لي
و اللينك اللي انت ارسلته يعطي خطأ
و اللينك اللي انت ارسلته يعطي خطأ
09-07-17, 06:23 PM
(09-07-17, 04:31 PM)silverlight كتب : [ -> ]مافيش ملفات وصلت لي
و اللينك اللي انت ارسلته يعطي خطأ
اتفضل الملف فى المرفقات
10-07-17, 06:51 AM
إدرس الكود الموجود في الرابط التالي
الرابط
الرابط
10-07-17, 03:15 PM
شكرا لكم جميعا
تم حل المشكلة
وهذا هو الكود ليستفيد الجميع
الكود من شخص يدعى Abd Samad وهو ليس مسجل بالمنتدى
شكرا للجميع مرة اخرى
تم حل المشكلة
وهذا هو الكود ليستفيد الجميع
كود :
Private Sub Decompress(ByVal fi As FileInfo)
Using inFile As FileStream = fi.OpenRead()
Dim curFile As String = fi.FullName
Dim origName = curFile.Remove(curFile.Length - fi.Extension.Length)
Using outFile As FileStream = File.Create(origName)
Using Decompress As DeflateStream = New DeflateStream(inFile,
CompressionMode.Decompress)
Dim buffer As Byte() = New Byte(4096) {}
Dim numRead As Integer
numRead = Decompress.Read(buffer, 0, buffer.Length)
Do While numRead <> 0
outFile.Write(buffer, 0, numRead)
numRead = Decompress.Read(buffer, 0, buffer.Length)
Loop
Console.WriteLine("Decompressed: {0}", fi.Name)
End Using
End Using
End Using
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
Dim dirpath As String = "D:\dlls"
Dim di As DirectoryInfo = New DirectoryInfo(dirpath)
For Each fi As FileInfo In di.GetFiles("*.zip")
Decompress(fi)
Next
Catch ex As Exception
End Try
End Subشكرا للجميع مرة اخرى
11-07-17, 07:17 PM
الحمد لله ان مشكلتك اتحلت
مش مهم مين الللي كتب الكود
عموما انا انتهيت من الكود خاصة اني وعدتك اني أساعدك
وكتبته بشكل مختلف قليلا عن الاسلوب الذي تعتمده انت في دمج الملفات معا ثم فصلها بعد ذلك
وان شاء الله أضعه في قسم المقالات ليستفيد منه الأخرين
مش مهم مين الللي كتب الكود
عموما انا انتهيت من الكود خاصة اني وعدتك اني أساعدك
وكتبته بشكل مختلف قليلا عن الاسلوب الذي تعتمده انت في دمج الملفات معا ثم فصلها بعد ذلك
وان شاء الله أضعه في قسم المقالات ليستفيد منه الأخرين
الصفحات : 1 2