Dim objFSO
Dim ofolder
Dim objStream
Dim folder

Set objFSO = CreateObject("scripting.filesystemobject")

folder = InputBox("Enter folder to unpack","UnRarer", "E:\Series\")

CheckFolder (objFSO.getfolder(folder))
MsgBox "File Search Completed."

Sub CheckFolder(objCurrentFolder)
    
    Dim strTemp
    Dim strSearch
    Dim strOutput
    Dim objNewFolder
    Dim objFile
    Dim objStream
    
    
    strSearch = ".rar"
    
   
       For Each objFile In objCurrentFolder.Files
           strTemp = Right(objFile.Name, 4)
                If UCase(strTemp) = UCase(strSearch) Then
                    'Got one
                    	Dim rar 
                    	rar = objCurrentFolder.Path & "\" & objFile.Name
                    	'MsgBox rar
			'MsgBox """C:\Program Files\WinRAR\unrar.exe"" e " & rar & " " & objCurrentFolder.Path
		
			Dim oShell
			Set oShell = WScript.CreateObject ("WSCript.shell")
			Return = oShell.run ("""F:\Program Files\WinRAR\unrar.exe"" e -o- """ & rar & """ """ & objCurrentFolder.Path & """", 1, true)
			Set oShell = Nothing
		End If
       Next

       'Recurse through all of the folders
       For Each objNewFolder In objCurrentFolder.subFolders
               CheckFolder objNewFolder
       Next

       
End Sub