[AL_BRNS]

السلام عليكم ورحمة الله وبركاته

جرب التالي

كود :

Private Sub Command1_Click()
Shell "C:\Program Files\WinRAR\WinRAR x c:\File.rar *.* c:\File\", vbHide
End Sub

بالتوفيق