Dunkel fso, outfile som är grafisk, Elem
Dunkel strFromDir, strToDir, strGraphicList (), I
Fastställd fso = CreateObject (”Scripting.FileSystemObject”)
'**** Uppsättningen ditt arkiv värderar här ****,
strFromDir = ”C:\Original”,
strToDir = ”C:\New”,
i = 0
Fastställd xmlDoc = CreateObject (”Msxml2.DOMDocument”)
xmlDoc.load (”C:\test\test.XML”)
Fastställda ElemList = xmlDoc.getElementsByTagName (”annons”)
'ElemList.Length ska show dig hur många ANNONSknutpunkter som du grundar
'msgbox ElemList.Length
'Kretsa till och med din knutpunkt listar
För varje Elem i ElemList
'Kontrollera för att se, om denna knutpunkt har ett attribut som namnges Grafisk
Om inte Elem.getAttribute (”grafiskt”) därefter
'Se till att samlingen är rätten storleksanpassar
Redim syltstrGraphicList (I)
'Om så, tilldela attributen värderar till en samling,
strGraphicList (I) = Elem.getAttribute (”grafiskt”)
'Öka kontra
i = I + 1
Avsluta om
Därefter
'Kretsa till och med samlingen
För I = 0 till Ubound (strGraphicList) - 1
'Se till att original att spara finns i källan
Om fso.FileExists (sstrFromDir & ”\” & strGraphicList (I)) Därefter
'Grunda spara - kopiera till destinationen
fso.CopyFile-strFromDir & ”\” & strGraphicList (I), strToDir & ”\”,
Avsluta om
Därefter
'Validera att allt sparar går ut i destination
För I = 0 till Ubound (strGraphicList) - 1
'Se till att original att spara finns i källan
Om INTE fso.FileExists (strToDir & ”\” & strGraphicList (I)) Därefter
'Funnit INTE funnit
msgbox ”grafisk LEGITIMATION” & strGraphicList (I) & ”fanns inte”,
Avsluta om
Därefter
”gjord” msgbox,
|