Object.Namespace path error

Question

I wrote this code to return some properties from file:

 Dim strMTitle As String
 Dim objMshell As Object
 Dim objMfolder As Object
 Dim objMFolderItem As Object
 Dim strMpath As String
 strMpath = "C:\Users\User1\Desktop\Test4\"

 Set objMshell = CreateObject("shell.application")
 Set objMfolder = objMshell.Namespace(strMpath)
 Set objMFolderItem = objMfolder.ParseName("test2.xlsm")

 strMTitle = objMfolder.GetDetailsOf(objMFolderItem, 21)

 Debug.Print strMTitle

The problem is that it keeps returning run time error 91 - Object variable with block variable not set. Weirdest thing is that when I "Hardcode" objMfolder with path like this: Set objMfolder = objMshell.Namespace("C:\Users\User1\Desktop\Test4\") the code works perferct. I use this path in multiple places in my macro so I would really like to "store" it in strMpath and use it like this:

Set objMfolder = objMshell.Namespace(strMpath)

Please help!

Ron Rosenfeld · Accepted Answer · 2016-11-04 11:57:03Z

1

The code seems to work with the string variable if you use early-binding and the Shell32.Shell as below. Also, .GetDetailsOf with a column argument of 21 returns nothing, but 0 returns the file name.

Option Explicit
'Set Reference to Microsoft Shell Controls and Automation

Sub dural()
 Dim strMTitle As String
 Dim objMshell As Shell32.Shell
 Dim objMfolder As Folder
 Dim objMFolderItem As FolderItem
 Dim strMpath As String
 strMpath = "C:\Users\Ron\Desktop\"

 Set objMshell = New Shell32.Shell
 Set objMfolder = objMshell.Namespace(strMpath)
 Set objMFolderItem = objMfolder.ParseName("20161104.csv")

 strMTitle = objMfolder.GetDetailsOf(objMFolderItem, 0)

 Debug.Print strMTitle
End Sub

answered Nov 4, 2016 at 11:57

Ron Rosenfeld

62k7 gold badges35 silver badges71 bronze badges

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

2 Comments

Pawel Over a year ago

argument 21 returns "Title" property. Thanks Ron

Ron Rosenfeld Over a year ago

@Pawel Oh well, I guess the file I was testing does not have a Title Glad the code is working for you.

Collectives™ on Stack Overflow

Object.Namespace path error

1 Answer 1

2 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

2 Comments

Your Answer

Sign up or log in

Post as a guest

Related