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
Всем спасибо!!!!!
Полезны все способы. Применять буду (3)
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший