Set fso = CreateObject("Scripting.FileSystemObject")
set objShell = CreateObject("Shell.Application")
set FilesInZip = objShell.NameSpace(ZipFile).items()
oga = false
For Each it in FilesInZip
if InStr(fso.GetFileName(it),"1cv7.md") <> 0 Then
oga = true
Exit For
end if
'WScript.Echo fso.GetFileName(it)
Next
if oga then
MsgBox "Есть!"
else
MsgBox "Нет!"
end if
Set fso = Nothing
Set objShell = Nothing