Имя: Пароль:
1C
1C 7.7
v7: Работа с архивом через VBS
0 forforumandspam
 
13.02.12
15:01
Как из скрипта VBS узнать, есть ли в архиве ZIP файл 1cv7.md?
1 Ёпрст
 
13.02.12
15:20
тупо открыть как текст и прочитать.. есть ли там 1Cv7.MD
2 makfromkz
 
13.02.12
15:26
rar t ИмяАрхива >1.txt
и 1.txt уже шерстить на наличие *.md
3 le_
 
13.02.12
15:30
ZipFile="d:\Test.Zip"

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
4 le_
 
13.02.12
15:31
+ (3) Добавь lcase шоб наверняка.
5 skunk
 
13.02.12
15:32
find /c "1cv7.md" back.zip > 1.txt
если размер 1.txt больше нуля то есть
6 Ёпрст
 
13.02.12
15:37
(3) от, то что надо

(2,5) ну это же не спортивно!

:)
7 forforumandspam
 
13.02.12
15:44
Всем спасибо!!!!!
Полезны все способы. Применять буду (3)
Основная теорема систематики: Новые системы плодят новые проблемы.