PDA

View Full Version : فشرده سازی فایل و فولدر (Rar) با دستور shell



oYaMaa
دوشنبه 17 مهر 1391, 00:18 صبح
سلام دوستان!
چطور میشه این کارو انجام داد؟

امین مستانی
دوشنبه 17 مهر 1391, 01:44 صبح
سلام علیکم

این نمونه برای Zip و Unzip کردن هست

برگرفته از این سایت http://www.codeguru.com/vb/gen/vb_graphics/fileformats/article.php/c6743/Zip-and-Unzip-Using-VB5-or-VB6.htm

موفق باشید

oYaMaa
دوشنبه 17 مهر 1391, 09:40 صبح
سلام علیکم

این نمونه برای Zip و Unzip کردن هست

برگرفته از این سایت http://www.codeguru.com/vb/gen/vb_graphics/fileformats/article.php/c6743/Zip-and-Unzip-Using-VB5-or-VB6.htm

موفق باشید
ممنون ولی من میخوام rar فشرده سازی کنم.

امین مستانی
دوشنبه 17 مهر 1391, 11:08 صبح
سلام علیکم

برای اینکار باید نرم افزار Winrar حتما در سیستم مقصد نصب باشه .

در قسمت Help نرم افزار Winrar در بخش Command line mode توضیح داده که چطوری اینکارو انجام بدید .

نمونه ساده :


Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long

Private Sub Command1_Click()
InputStr = Chr$(34) & "C:\Program Files\WinRAR\Rar.exe" & Chr$(34) & " a -r -ep1 -m0 -- " & Chr$(34) & "C:\Test.rar" & Chr$(34) & " " & Chr$(34) & "C:\Test.txt" & Chr$(34)
WinExec InputStr, 0 'Hide CMD Program
'WinExec InputStr, 1 'Show CMD Program
End Sub


در این سایت یک نمونه دیگر به صورت کامل به همراه پروگرس بار هست میتونید مشاهده کنید

http://www.vbforums.com/showthread.php?611569-using-winrar-in-vb6-with-progressbar

یک نمونه دیگر

http://www.vbforums.com/showthread.php?574412-VB-Script-to-run-WinRar


موفق باشید

one hacker alone
دوشنبه 17 مهر 1391, 15:29 عصر
به مسیر نصب برنامه winrar برید و فایل rar رو بردارید و در ریسورس برنامه خودتون بزارید اینجوری نیازی نیست در سیستم مقصد هم این برنامه نصب باشه
موفق باشید

امین مستانی
سه شنبه 18 مهر 1391, 00:44 صبح
به مسیر نصب برنامه winrar برید و فایل rar رو بردارید و در ریسورس برنامه خودتون بزارید اینجوری نیازی نیست در سیستم مقصد هم این برنامه نصب باشه
موفق باشید

فکر نمیکنم اینطور باشه چون فایل ها و Dll های وابسته هم داره

setroyd
سه شنبه 18 مهر 1391, 15:25 عصر
نه امکان پذیر نیست چون برای Un و zip شما نیاز به دستورات مختص برنامه ی winrar داری و شما بدون داشتن برنامه قادر به انجام این کار نیستی مگر اینکه فایل به صورت باینری باز شود و در جایی write شود تنها راه همینه اونم هم کنده و هم استاندارد نیست .