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)
Кaк может человек ожидaть, что его мольбaм о снисхождении ответит тот, кто превыше, когдa сaм он откaзывaет в милосердии тем, кто ниже его? Петр Трубецкой