pregnancy

طريقة ضغط المجلدات و الملفات عن طريق سكربت Zip folder with VBS


في هده التدوينة الحصرية على مدونة رواد الحماية سأشارككم سكربت جد بسيط يمكنك من خلاله أن تقوم بعمل ضغط للملفات و المجلدات ببروسيس صامت يمكنك دمجه مع مشروعك أو استخدامه لسحب الكووكيز أدع طريقة الاستخدام لك 😉😉.

لغة البرمجة :
 VBScript

الإمتداد :
VBS

طريقة الإستعمال :
فقط قم بإنشاء ملف بصيغة vbs تم ضع الكود أسفله بداخل الملف مع تغيير ../00 بالمسار الكامل للمجلد أو الملف تم ستضهر output بإسم ebf.zip . 

الكود :

ArchiveFolder "ebf.zip", "..\00"

Sub ArchiveFolder (zipFile, sFolder)

    With CreateObject("Scripting.FileSystemObject")
        zipFile = .GetAbsolutePathName(zipFile)
        sFolder = .GetAbsolutePathName(sFolder)

        With .CreateTextFile(zipFile, True)
            .Write Chr(80) & Chr(75) & Chr(5) & Chr(6) & String(18, chr(0))
        End With
    End With

    With CreateObject("Shell.Application")
        .NameSpace(zipFile).CopyHere .NameSpace(sFolder).Items

        Do Until .NameSpace(zipFile).Items.Count = _
                 .NameSpace(sFolder).Items.Count
            WScript.Sleep 1000 
        Loop
    End With

End Sub

شكرا لتعليقك