Sub unzip()
    iPath = "D:\Temp\08.11.2016"
    MyName = Dir(iPath, vbNormal)
    MyName = iPath & MyName
Do While MyName <> ""
If MyName Like "*.rar" Or MyName Like "*.zip" Or MyName Like "*.7z" Then
    WinRarApp$ = "D:\Program Files\winRAR\winRAR.exe e"
        iArhivName$ = MyName
    adr$ = WinRarApp$ & " """ & iArhivName$ & """ """ & iPath & """ "
    RetVal = Shell(adr$, vbHide)
End If
    MyName = Dir()
Loop
End Sub

Sub unzip()
Dim iPath, strMaskSearch, MyName As String
iPath = "D:\Temp\08.11.2016\"
strMaskSearch = "*.zip"
 
 If Len(Dir(iPath)) = 0 Then
               MkDir iPath
        End If

MyName = Dir(iPath & strMaskSearch)
 
Do While MyName <> ""
    If MyName Like "*.rar" Or MyName Like "*.zip" Or MyName Like "*.7z" Then
    WinRarApp$ = "D:\Program Files\winRAR\winRAR.exe e"
        iArhivName$ = iPath & MyName
    adr$ = WinRarApp$ & " """ & iArhivName$ & """ """ & iPath & """ "
    RetVal = Shell(adr$, vbHide)
    End If
    
    MyName = Dir
Loop
End Sub