Faible fso, outfile, graphique, Elem
Faible strFromDir, strToDir, strGraphicList (), I
Placer le fso = le CreateObject (« Scripting.FileSystemObject »)
Le '**** a placé votre **** de valeurs d'annuaire ici
strFromDir = « C:\Original »
strToDir = « C:\New »
i = 0
Placer le xmlDoc = le CreateObject (« Msxml2.DOMDocument »)
xmlDoc.load (« C:\test\test.XML ")
Placer ElemList = xmlDoc.getElementsByTagName (la « annonce »)
'ElemList.Length te montrera combien de noeuds d'ANNONCE vous avez trouvés
'msgbox ElemList.Length
'Boucle par votre liste de noeud
Pour chaque Elem dans ElemList
'Vérifier pour voir si ce noeud a un attribut appelé Graphic
Sinon Elem.getAttribute (« graphique ») puis
'S'assurer que la rangée est la bonne taille
strGraphicList de conserve de Redim (i)
'Si oui, assigner la valeur d'attributs à une rangée
strGraphicList (i) = Elem.getAttribute (« graphique »)
'Incrémenter le compteur
i = I + 1
Finir si
Après
'Boucle par la rangée
Pour I = 0 à Ubound (strGraphicList) - 1
'S'assurer que le dossier original existe dans la source
Si fso.FileExists (sstrFromDir et « \ » et strGraphicList (i)) puis
'A trouvé le dossier - pour copier à la destination
strFromDir de fso.CopyFile et « \ » et strGraphicList (i), strToDir et « \ »
Finir si
Après
'Valider que tous les dossiers sortent dans la destination
Pour I = 0 à Ubound (strGraphicList) - 1
'S'assurer que le dossier original existe dans la source
Sinon fso.FileExists (strToDir et « \ » et strGraphicList (i)) puis
'Trouvé non trouvé
msgbox « identification de graphique » et strGraphicList (i) et « n'a pas été trouvé »
Finir si
Après
msgbox « fait »
|
