Fso não ofuscante, outfile, gráfico, Elem
strFromDir não ofuscante, strToDir, strGraphicList (), i
Ajustar o fso = o CreateObject (“Scripting.FileSystemObject”)
'O **** ajustou seu **** dos valores do diretório aqui
strFromDir = “C:\Original”
strToDir = “C:\New”
i = 0
Ajustar o xmlDoc = o CreateObject (“Msxml2.DOMDocument”)
xmlDoc.load (“C:\test\test.XML ")
Ajustar ElemList = xmlDoc.getElementsByTagName (o “anúncio”)
'ElemList.Length mostrar-lhe-á quantos nós do ANÚNCIO você encontrou
'msgbox ElemList.Length
'Laço através de sua lista do nó
Para cada Elem em ElemList
'Verific para ver se este nó tem um atributo nomeado Gráfico
Se não Elem.getAttribute (“gráfico”) então
'Certificar-se que a disposição é o tamanho direito
strGraphicList da conserva de Redim (i)
'Em caso afirmativo, atribuir o valor de atributos a uma disposição
strGraphicList (i) = Elem.getAttribute (“gráfico”)
'Incrementar o contador
i = i + 1
Terminar se
Em seguida
'Laço com a disposição
Para i = 0 a Ubound (strGraphicList) - 1
'Certificar-se que a lima original existe na fonte
Se fso.FileExists (sstrFromDir & “\” & strGraphicList (i)) então
'Encontrou a lima - para copiar ao destino
strFromDir de fso.CopyFile & “\” & strGraphicList (i), strToDir & “\”
Terminar se
Em seguida
'Validar que todas as limas retiram no destino
Para i = 0 a Ubound (strGraphicList) - 1
'Certificar-se que a lima original existe na fonte
Se não fso.FileExists (strToDir & “\” & strGraphicList (i)) então
'Encontrou não encontrado
msgbox do “identificação gráfico” & strGraphicList (i) & “não foi encontrado”
Terminar se
Em seguida
msgbox “feito”
|