منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
فك ضغط - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : فك ضغط (/showthread.php?tid=8759)

فك ضغط - asto - 03-05-13

السلام عليكم

لدينا ملف s.rar موجود في c:\

و اريد فك ضغطه الى c:\12

فما هو الكود المناسب لفعل ذلك

فك ضغط - asto - 08-05-13

ألا يوجد حل ؟

فك ضغط - VB_Coder - 09-05-13

السلام عليكم

- إستخدم هذا الأمر :

كود :
Shell "C:\Program Files\WinRAR\WinRAR x c:\s.rar *.* c:\12\", vbHide

- تحياتي .

فك ضغط - asto - 11-05-13

مشكور للغاية بس طلب صغير بعد انو استبدل c:\s.rar ب text1.text

و c:\12 ب text2.text

فكيف يصبح الكود

فك ضغط - VB_Coder - 11-05-13

السلام عليكم

- سيصبح الكود هكذا :-

كود :
Shell "C:\Program Files\WinRAR\WinRAR x " & Text1.Text & " *.* " & Tex2.Text, vbHide


فك ضغط - VB_Coder - 11-05-13

السلام عليكم

- سيصبح الكود هكذا :

كود :
Shell "C:\Program Files\WinRAR\WinRAR x " & Text1.Text & " *.* " & Tex2.Text, vbHide


فك ضغط - asto - 11-05-13

مشكور جدا بل بقي هناك مشكلة صغيرة ان الامر لا يقبل اسماء الملفات التي فيها فراغ او اكثر مثال C Cleaner.rar

فك ضغط - VB_Coder - 12-05-13

السلام عليكم

- إستخدم هذا الكود لحل مشكلة لإسم الملف وإسم المجلد أو مسار المف أو مسار مجلد الإخراج إن كانت بها مسافات حيث هذا الكود يأتي بالمسار المختصر الخاص بالدوس :
كود :
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal lBuffer As Long) As Long

Private Function GetShortPath(strFileName As String) As String
Dim lngRes As Long, strPath As String
strPath = String$(165, 0)
lngRes = GetShortPathName(strFileName, strPath, 164)
GetShortPath = Left$(strPath, lngRes)
End Function

Private Sub Command1_Click()

Dim File_ShortPath As String
Dim OutPut_ShortPath As String

File_ShortPath = GetShortPath(Trim$(Text1.Text))
OutPut_ShortPath = Trim$(Text2.Text)

If Right$(OutPut_ShortPath, 1) <> "\" Then OutPut_ShortPath = OutPut_ShortPath & "\"
If Dir$(OutPut_ShortPath, vbDirectory) = "" Then
   MkDir OutPut_ShortPath
   DoEvents
End If
OutPut_ShortPath = GetShortPath(Trim$(OutPut_ShortPath))

Shell "C:\Program Files\WinRAR\WinRAR x " & _
      File_ShortPath & _
      " *.* " & _
      OutPut_ShortPath, vbHide
DoEvents

MsgBox "OK"

End Sub

- تحياتي .

فك ضغط - asto - 13-05-13

VB_Coder كتب :السلام عليكم

- سيصبح الكود هكذا :

كود :
Shell "C:\Program Files\WinRAR\WinRAR x " & Text1.Text & " *.* " & Tex2.Text, vbHide

هذا الكود و كل اكوادك تعمل بس طلب بسيط اخير اطلب تغير هذا الكود ليكون فك الضغط ببرنامج 7zip

فك ضغط - VB_Coder - 13-05-13

السلام عليكم

- والله أخي العزيز لم أستخدم برنامج 7zip وغير موجود عندي .