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