This doesn't work:

Code:
    
    Set EachType = GetObject("WinMgmts:")
    Set CompSys = EachType.ExecQuery("select version, name from win32_filespecification where name = '" & sPath & "'")
This does work:

Code:
    Set EachType = GetObject("WinMgmts:").InstancesOf("Win32_FileSpecification")
    
    For Each Directo In EachType
        List1.AddItem "Name: " & Directo.Name
        List1.AddItem "Caption: " & Directo.Caption
        List1.AddItem "File ID: " & Directo.fileid
    Next
But it only enumerates file for one directory, and I cant figure out how to get it to display infomation for a specific file in a specific directory.

Anyone out there used this before??