03-05-13, 03:38 AM
08-05-13, 09:28 PM
ألا يوجد حل ؟
09-05-13, 11:35 PM
السلام عليكم
- إستخدم هذا الأمر :
- تحياتي .
- إستخدم هذا الأمر :
كود :
Shell "C:\Program Files\WinRAR\WinRAR x c:\s.rar *.* c:\12\", vbHide- تحياتي .
11-05-13, 01:45 AM
مشكور للغاية بس طلب صغير بعد انو استبدل c:\s.rar ب text1.text
و c:\12 ب text2.text
فكيف يصبح الكود
و c:\12 ب text2.text
فكيف يصبح الكود
11-05-13, 04:03 AM
السلام عليكم
- سيصبح الكود هكذا :-
- سيصبح الكود هكذا :-
كود :
Shell "C:\Program Files\WinRAR\WinRAR x " & Text1.Text & " *.* " & Tex2.Text, vbHide11-05-13, 06:19 AM
السلام عليكم
- سيصبح الكود هكذا :
- سيصبح الكود هكذا :
كود :
Shell "C:\Program Files\WinRAR\WinRAR x " & Text1.Text & " *.* " & Tex2.Text, vbHide11-05-13, 09:25 PM
مشكور جدا بل بقي هناك مشكلة صغيرة ان الامر لا يقبل اسماء الملفات التي فيها فراغ او اكثر مثال C Cleaner.rar
12-05-13, 12:33 AM
السلام عليكم
- إستخدم هذا الكود لحل مشكلة لإسم الملف وإسم المجلد أو مسار المف أو مسار مجلد الإخراج إن كانت بها مسافات حيث هذا الكود يأتي بالمسار المختصر الخاص بالدوس :
- تحياتي .
- إستخدم هذا الكود لحل مشكلة لإسم الملف وإسم المجلد أو مسار المف أو مسار مجلد الإخراج إن كانت بها مسافات حيث هذا الكود يأتي بالمسار المختصر الخاص بالدوس :
كود :
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- تحياتي .
13-05-13, 05:38 AM
VB_Coder كتب :السلام عليكم
- سيصبح الكود هكذا :
كود :
Shell "C:\Program Files\WinRAR\WinRAR x " & Text1.Text & " *.* " & Tex2.Text, vbHide
هذا الكود و كل اكوادك تعمل بس طلب بسيط اخير اطلب تغير هذا الكود ليكون فك الضغط ببرنامج 7zip
13-05-13, 04:56 PM
السلام عليكم
- والله أخي العزيز لم أستخدم برنامج 7zip وغير موجود عندي .
- والله أخي العزيز لم أستخدم برنامج 7zip وغير موجود عندي .