Fso dévil, outfile, gráfico, Elem
strFromDir dévil, strToDir, strGraphicList (), i
Fijar el fso = CreateObject (“Scripting.FileSystemObject”)
El '**** fijó su **** de los valores del directorio aquí
strFromDir = “C:\Original”
strToDir = “C:\New”
i = 0
Fijar el xmlDoc = CreateObject (“Msxml2.DOMDocument”)
xmlDoc.load (“C:\test\test.XML ")
Fijar ElemList = xmlDoc.getElementsByTagName (el “anuncio”)
'ElemList.Length le demostrará cuántos nodos del ANUNCIO usted encontró
'msgbox ElemList.Length
'Lazo a través de su lista del nodo
Para cada Elem en ElemList
'Comprobar para ver si este nodo tiene una cualidad nombrada Graphic
Si no Elem.getAttribute (“gráfico”) entonces
'Cerciorarse de que el arsenal sea el tamaño correcto
strGraphicList del coto de Redim (i)
'Si es así asignar el valor de cualidades a un arsenal
strGraphicList (i) = Elem.getAttribute (“gráfico”)
'Incrementar el contador
i = i + 1
Terminar si
Después
'Lazo con el arsenal
Para i = 0 a Ubound (strGraphicList) - 1
'Cerciorarse de que el archivo original exista en la fuente
Si fso.FileExists (sstrFromDir y “\” y strGraphicList (i)) Entonces
'Encontró el archivo - para copiar a la destinación
strFromDir de fso.CopyFile y “\” y strGraphicList (i), strToDir y “\”
Terminar si
Después
'Validar que todos los archivos salen en la destinación
Para i = 0 a Ubound (strGraphicList) - 1
'Cerciorarse de que el archivo original exista en la fuente
Si no fso.FileExists (strToDir y “\” y strGraphicList (i)) Entonces
'Encontrado no encontrado
el msgbox “identificación del gráfico” y el strGraphicList (i) y “no fueron encontrados”
Terminar si
Después
msgbox “hecho”
|