Fso fioco, outfile, grafico, Elem
strFromDir fioco, strToDir, strGraphicList (), i
Regolare il fso = CreateObject (“Scripting.FileSystemObject„)
'Il **** ha regolato il vostro **** di valori dell'indice qui
strFromDir = “C:\Original„
strToDir = “C:\New„
i = 0
Regolare il xmlDoc = CreateObject (“Msxml2.DOMDocument„)
xmlDoc.load (“C:\test\test.XML ")
Regolare ElemList = xmlDoc.getElementsByTagName (“annuncio„)
'ElemList.Length gli mostrerà quanti nodi dell'ANNUNCIO avete trovato
'msgbox ElemList.Length
'Ciclo attraverso la vostra lista di nodo
Per ogni Elem in ElemList
'Controllare per vedere se questo nodo ha un attributo chiamato Graphic
Se non Elem.getAttribute (“grafico„) allora
'Assicurar che l'allineamento sia il giusto formato
strGraphicList della conserva di Redim (i)
'In caso affermativo, assegnare il valore di attributi ad un allineamento
strGraphicList (i) = Elem.getAttribute (“grafico„)
'Incrementare il contatore
i = i + 1
Concluder se
Dopo
'Ciclo con l'allineamento
Per i = 0 a Ubound (strGraphicList) - 1
'Assicurar che la lima originale esista nella fonte
Se fso.FileExists (sstrFromDir & “\„ & strGraphicList (i)) allora
'Ha trovato la lima - per copiare alla destinazione
strFromDir di fso.CopyFile & “\„ & strGraphicList (i), strToDir & “\„
Concluder se
Dopo
'Convalidare che tutte le lime escono in destinazione
Per i = 0 a Ubound (strGraphicList) - 1
'Assicurar che la lima originale esista nella fonte
Se non fso.FileExists (strToDir & “\„ & strGraphicList (i)) allora
'Trovato non trovato
msgbox “identificazione del grafico„ & strGraphicList (i) & “non è stato trovato„
Concluder se
Dopo
msgbox “fatto„
|