Тусклое fso, outfile, графическое, Elem
Тусклое strFromDir, strToDir, strGraphicList (), I
Установите fso = CreateObject («Scripting.FileSystemObject»)
'**** Установило ваше **** значений директории здесь
strFromDir = «C:\Original»
strToDir = «C:\New»
iий = 0
Установите xmlDoc = CreateObject («Msxml2.DOMDocument»)
xmlDoc.load («C:\test\test.XML ")
Установите ElemList = xmlDoc.getElementsByTagName («объявление»)
'ElemList.Length покажет вам сколько узлы ОБЪЯВЛЕНИЯ вы нашли
'msgbox ElemList.Length
'Петля через ваш список узла
Для каждого Elem в ElemList
'Проверите для того чтобы увидеть если этот узел имеет названный атрибут Графиком
Если не Elem.getAttribute («график») после этого
'Сделайте конечно блок будет правым размером
strGraphicList заповедника Redim (I)
'Если так, задайте значение атрибутов к блоку
strGraphicList (I) = Elem.getAttribute («график»)
'Инкрементируйте счетчик
iий = I + 1
Закончитесь если
Затем
'Петля через блок
Для I = 0 к Ubound (strGraphicList) - 1
'Сделайте конечно первоначально архив существует в источнике
Если fso.FileExists, то (sstrFromDir & «\» & strGraphicList (I)) После этого
'Нашл архив - для того чтобы скопировать к назначению
strFromDir fso.CopyFile & «\» & strGraphicList (I), strToDir & «\»
Закончитесь если
Затем
'Утвердите что все архивы выходят в назначение
Для I = 0 к Ubound (strGraphicList) - 1
'Сделайте конечно первоначально архив существует в источнике
Если НЕ fso.FileExists, то (strToDir & «\» & strGraphicList (I)) После этого
'Счесно о
не были ы msgbox «удостоверение личности графика» & strGraphicList (I) & «»
Закончитесь если
Затем
«сделанное» msgbox
|