Execute the command ObjOutFile.WriteLine(ObjFile.Path) only when ObjFile has a matching extension.
Set extensions = CreateObject("Scripting.Dictionary")
extensions.CompareMode = 1 ' make lookups case-insensitive
e
#when #very #true #case-insensitive #then
https://stackoverflow.com/questions/1... https://stackoverflow.com/questions/1...