مساعدة في ضغط مجلد بأستخدام كود فيجول بيسك....بليز

السلام عليكم

واااااااااااااااو موضوعي على طووول نزل لاخر الصفحة وللأسف ما احد رد علي....!

على فكرة لقيت كود يحل نوعأً ما المشكلة....بس مش بالضبط

هذا هو

' Zip the subdirectories in this directory.
Private Sub cmdZip_Click()
Const ZIP_EXE As String = """C:\Program " & _
    "Files\WinZip\wzzip"""

Dim dir_name As String
Dim file_name As String
Dim full_path As String

    dir_name = txtDirectory.Text
    If Right$(dir_name, 1) <> "\" Then dir_name = dir_name _
        & "\"
    file_name = Dir$(dir_name, vbDirectory)
    Do While Len(file_name) > 0
        If file_name <> "." And file_name <> ".." Then
            ' Zip this directory.
            full_path = dir_name & file_name
            If GetAttr(full_path) And vbDirectory Then
                If Shell(ZIP_EXE & " -r -p " & _
                    full_path & ".zip " & full_path, _
                        vbHide) = 0 _
                Then
                    MsgBox "Zip Failed for " & file_name
                End If
            End If
        End If

        ' Get the next directory.
        file_name = Dir$(, vbDirectory)
    Loop

    MsgBox "Done"
End Sub

المشكلة هنا انه يستخدم برنامج الوين زيب.....ولكن انا ماني متاكد ان يوجد وين زيب في الجهاز الي راح اشغل عليه البرنامج هذا...صح ولا لا؟؟؟ عشان كذا ابغى برنامج يستخدم البرنامج الي جي مع الوينودز اكس بي....

وارجع واقوول ان مو ضروري تكون zip لكن المطلوب انها تكون في ملف واحد فقط...

والف شكر لكم على الصبر علي :^)

((واعطونا وجههههههههه الله يخليكم!))

تحياتي