Getting list of Files from Search-ms folder

[imranbhatti]

Hi,


I am struggling to get list of files and its properties from "Search-ms" folder. It seems VBA is not accepting this type of file as a folder. I am using the bellow code

Sub Example4()
    Dim objFSO As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim ws As Worksheet
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set ws = Worksheets.Add
    
    'Get the folder object associated with the directory
    Set objFolder = objFSO.GetFolder("C:\Users\" & Environ$("UserName") & "\Dropbox\ImranBhatti\mySearch\")
    
    'Loop through the Files collection
    For Each objFile In objFolder.Files
      s = s & vbNewLine & objFile.Name
    Next
    MsgBox s
    'Clean up!
    Set objFolder = Nothing
    Set objFile = Nothing
    Set objFSO = Nothing
End Sub

I also tried

"C:\Users" & Environ$("UserName") & "\Dropbox\ImranBhatti\mySearch"


"C:\Users" & Environ$("UserName") & "\Dropbox\ImranBhatti\mySearch.Search-ms"

When I double click on the file it opens and shows the search results, means no issues with the save search file.


Previously posted at:https://www.excelforum.com/excel-pr...-files-from-search-ms-folder.html#post4972113
Any help would be greatly appreciated.




Best Regards
Imran Bhatti