[الشاكي لله]

(07-11-15, 02:49 PM)أبو عمر كتب : قبل سنوات احتجت للضغط في أحد البرامج فما كان امامي الا استخدم الملف المساعد مع ارار Rar.Exe
والغضط يكون على سبيل المثال
rar "ic=first level" -r c:\*.rar *.txt
وستجد في مجلد winRar ملف نصي هذا محتواه

PHP كود :

ple,
            -tsm4 -tsa4 -tsc4 can be replaced by -ts4, -ts+ or -ts.
            Use -ts- to save only the low precision modification time
            or to ignore all three file times on unpacking. 


نعم طريقتي هي نفسها باستعمال ملف rar.exe

هذا هو الكلاس محول للفيجوال بيسك

PHP كود :

Imports System.Collections.Generic
Imports System.Diagnostics
Imports System.Linq
Imports System.Text

Namespace Rar_Files.Classes
    Class RARHelper


        Public Class Compress
            'compress'
            Public Shared Function CreateFilesArgument(files As String(), archivePath As String) As String
                Dim files_path As String = [String].Join(" ", files)
                Return String.Format("a -ep ""{0}"" @""{1}""", archivePath, CreateListFile(files))

            End Function


            Public Shared Function CreateFolderArgument(folder As String, archivePath As String) As String
                Return String.Format("a -ep ""{0}"" ""{1}""", archivePath, folder)
            End Function

            Public Shared Sub Execute(winrarExePath As String, argument As String)

                'Execute on rar exe
                Dim p As New Process()
                p.StartInfo.FileName = winrarExePath
                p.StartInfo.Arguments = argument
                p.Start()
                p.WaitForExit()
            End Sub



            '-------------------------------- '
            Private Shared Function CreateListFile(files As String()) As String
                Const  LIST_FILE As String = "List.txt"
                System.IO.File.WriteAllLines(LIST_FILE, files)
                Return LIST_FILE
            End Function
        End Class




    End Class
End Namespace 


عليك بارفاق ملف rar.exe الى جانب الملف التنفيذي الخاص بتطبيقك
ثم عليك باستعمال الكلاس اعلاه كما يلي :

PHP كود :

Dim rar_path As String = Application.StartupPath + "/Rar.exe"
Dim filesToCompress As String() = New String() {"C://vb4arb.txt", "C://operand.mp3", "C;//12.png", "C://kk.jpg"}

Dim argument As String = RARHelper.Compress.CreateFilesArgument(filesToCompress, "C://archive.rar")
RARHelper.Compress.Execute(rar_path, argument) 


الاستخراج لم اقم بعمله حتى الان ، لاني متحير هل استخدم الوين رار ولا كلاسات 7z

ولكن التطبيق شبه جاهز الخاص بالوين رار :


اضغط على الصورة للتحميل :-



اسم الملف التنفيذي للتطبيق هو Compress_Extract.exe
الملفي rar.exe و unRAR.exe هما ملفات تابعان للوين رار يستخدمان للضغط او الاستخراج