@echo off unrar x -p- "11.rar" /y
Private Sub Command1_Click() Shell "C:\Program Files\WinRAR\WinRAR x c:\File.rar *.* c:\File\", vbHide End Sub