Сравнение файлов и папок

dim fso ,_
fols1, fols2,_
files1, files2 
 
set fso = CreateObject("Scripting.FileSystemObject")
 
set fols1 = fso.GetFolder("c:\chapchap")
set files1 = fols1.Files
 
for each UnitOfFile1 in files1            
NameOfUnitOf1 = fso.GetBaseName(UnitOfFile1) '  какие имена у файлов в папке  chapchap   
msgbox NameOfUnitOf1                          '  это не обязательно                 
if fso.FolderExists ("c:"&NameOfUnitOf1)=true then ' если существует папка с именем одного файла  из папки chapchap 
fso.CopyFile "c:\chapchap"&NameOfUnitOf1&".png" ,  "c:"&NameOfUnitOf1&"" , true  ' то копировать в неё этот один файл из chapchap
 
else  
 
 
fso.CreateFolder ("c:"&NameOfUnitOf1)  '  иначе т. е . если папки не существует то  создать папку с именем одного файла из папки chapchap
End if 
 
set fols2= fso.GetFolder("c:"&NameOfUnitOf1&"")
set files2 = fols2.Files
 
for each UnitOfFile2 in files2             
NameOfUnitOf2 = fso.GetBaseName(UnitOfFile2)  ' какие имена в у файлов из той папки которая с именем файла из chapchap
Next 
if NameOfUnitOf1 = NameOfUnitOf2 then    
msgbox "Два файла называются "& NameOfUnitOf1
 
End if 
 
Next