This doesn't work:
Set EachType = GetObject("WinMgmts:")
Set CompSys = EachType.ExecQuery("select version, name from win32_filespecification where name = '" & sPath & "'")
This does work:
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??