[الماجيك مسعد]

شكرا لكم جميعا
تم حل المشكلة

وهذا هو الكود ليستفيد الجميع

كود :

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

الكود من شخص يدعى Abd Samad وهو ليس مسجل بالمنتدى

شكرا للجميع مرة اخرى