Need Help Setting With Block (Err 91)

[Fattire]

Need a second pair of eyes this morning.

Why am I getting a 91 with this code?

The public sub CreateEmptyZip works fine (creates empty zip file), but then stepping through I get an error 91 on the With statement. I'm new to all this.

    CreateEmptyZip zippath

    Dim ZipApp As Object
    Set ZipApp = CreateObject("Shell.Application")

    With ZipApp
        .Namespace(zippath).CopyHere (strpath)

    End With

    End If
End Sub

 

[JoeAtWork]

I'm guessing it's because you are using late binding. Maybe this would work:

    Dim ZipApp As Shell.Application    
    Set ZipApp = New Shell.Application

 

[PHV]

What about this ?
Dim ZipApp As Object, ZipFold As Object
Set ZipApp = CreateObject("Shell.Application")
Set ZipFold = ZipApp.Namespace(zippath)
ZipFold.CopyHere strpath

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[Fattire]

That did it brother! Thank you Joe. Here's what it ended up as:

    Dim ZipApp As Shell
    Set ZipApp = New Shell

    With ZipApp
        .Namespace(zippath).CopyHere (strpath)

    End With