How to assign variable to Object Property in VBA

Question

I'm trying to set namespace property from Shell.Application object dynamically.

With CreateObject("Shell.Application").Namespace(FolderName)
    ExtendProperty = .GetDetailsOf(.Items.Item(FileName), 143)
End With

When values for FolderName and for FileName are fixed(hard coded) snippet is working. But when I try to pass them in as a variables; error Run-time error 91 - Object variable or With Block variable not set. is returning. Also I need to assign returned value to variable for later use; ExtendProperty. I'm a bit new to VBA and could not find anything on the internet(Scopes, locals, etc.) for this specific case.

QHarr · Accepted Answer · 2018-09-28 16:21:57Z

3

To avoid the error mentioned pass variables as variants

Sub TEST2()
    Dim ExtendProperty As Variant
    Dim folderName As Variant, FileName As Variant
    folderName = "C:\Users\User\Desktop\TestFolder"
    FileName = "Test.xlsx"
    With CreateObject("Shell.Application").Namespace(folderName)
       ExtendProperty = .GetDetailsOf(.Items.item(FileName), 143)
    End With
End Sub

answered Sep 28, 2018 at 16:21

QHarr

84.5k14 gold badges58 silver badges105 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

How to assign variable to Object Property in VBA

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related