ismine

Hi, Tested on online OS (W7) and I think that's enough. Set colFileList = objWMIService.ExecQuery("Associators of {Win32_Directory.Name='z:\\winpe\\" & fileName & "'} Where " & "ResultClass = CIM_DataFile") If I understand this code, The Win32_Directory.Name is directory class and the return type is file so it don't work. I tried some other stuff without success. If someone has successfully make it work, (keeping the same idea) thank you in advance for clarification.

hi, Maybe this post is old, but he deserves to be reviewed. I tried to reproduce the same, but without success, I get an error at this line: For Each objFile in colFileList I suspicion this piece of code : Set colFileList = objWMIService.ExecQuery("Associators of {Win32_Directory.Name='z:\\winpe\\" & fileName & "'} Where " & "ResultClass = CIM_DataFile") "colFileList" is not a collection When i use MsgBox to display it's contents (filename) i get " & fileName & " Thank you for help