DUVIDA PARA DESCOMPACTAR ARQUIVO

LUISFLORIDO 12/10/2013 20:20:54
#429973

Como no tópico ja diz desejo descompactar o tal arquivo mas o arquivo possui a extensão [Ô].rar[Ô] e não [Ô].zip[Ô]
Para quem não sabe para descompactar arquivo zip aqui está o código:
Private Sub extrair()
Dim sc As New Shell32.Shell
Dim _pasta As Shell32.Folder = sc.NameSpace([Ô]Local[Ô])
Dim _arquivo As Shell32.Folder = sc.NameSpace([Ô]Arquivo[Ô])
_pasta.CopyHere(_arquivo.Items, 4)
End Sub