Hi

I wonder why the bellow code stopped working as it was working before today. I am using Windows 10 and Office 2016 32-bit.


Sub test4()

Dim arrHeaders(35)
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("C:\Users\My-PC\Desktop\New Folder\")
For i = 0 To 34
 arrHeaders(i) = objFolder.GetDetailsOf(objFolder.Items, i)
Next
For Each strFileName In objFolder.Items
 For i = 0 To 34
MsgBox i & vbTab & arrHeaders(i) _
 & ": " & objFolder.GetDetailsOf(strFileName, i)
 Next
Next
End Sub
I did not install any other software or update.

Your kind review will decrease my tension.Thanks in advance.

Best Regards
Imran Bhatti