Estoy usando el código de Ron (http://www.rondebruin.nl/win/s7/win002.htm) para, en teoría, descomprimir un montón de archivos zip en una carpeta. Creo que lo que tengo a continuación es el código que toma cada archivo zip en mi directorio de 'Descargas', crea una nueva carpeta con el nombre del archivo zip sin el ".zip" y luego extrae los archivos en la nueva carpeta. No obtengo ningún error (muchas veces las personas obtienen el error de tiempo de ejecución 91) pero lo único que sucede es que crea un grupo de carpetas con el nombre correcto pero todas están vacías.

Sub UnZipMe()

Dim str_FILENAME As String, str_DIRECTORY As String, str_DESTINATION As String

'Your directory where zip file is kept
str_DIRECTORY = "C:\Users\Jennifer\Downloads\"

'Loop through all zip files in a given directory
str_FILENAME = Dir(str_DIRECTORY & "*.zip")

Do While Len(str_FILENAME) > 0
    Call Unzip1(str_DIRECTORY & str_FILENAME)
    Debug.Print str_FILENAME
    str_FILENAME = Dir
Loop

End Sub

Sub Unzip1(str_FILENAME As String)
    Dim oApp As Object
    Dim Fname As Variant
    Dim FnameTrunc As Variant
    Dim FnameLength As Long

    Fname = str_FILENAME
    FnameLength = Len(Fname)
    FnameTrunc = Left(Fname, FnameLength - 4) & "\"

    If Fname = False Then
        'Do nothing
    Else
        'Make the new folder in root folder
        MkDir FnameTrunc

        'Extract the files into the newly created folder
        Set oApp = CreateObject("Shell.Application")
        oApp.Namespace(FnameTrunc).CopyHere oApp.Namespace(Fname).items
    End If
End Sub