Vraag : VBscript aan onderzoekssubfolders en exemplaardossiers

Hallo kan All

I am iemand me met dit helpen hopen. Ik heb het manuscript in bijlage met hulp ltlbearand3 geschreven om een een xmldossier en onderzoek naar al grafiek te lezen en dan hen te kopiëren van de bronfolder aan een nieuwe bestemmingsfolder. Dit werkte boete tot zij beslisten te veranderen wij ontvangen onze grafiek. De dossiers zullen altijd een numerieke naam zijn die 9 aantallen bevatten, zodat is wat gebeurt dat het dossier vraag laat het 123456789 over aan c:\graphics\123456\1234567 89 zal worden gekopi�ërd. Nu alle dossiers die met 123456 beginnen zullen in omslag c:\graphics\123456\ worden gekopi�ërd *. Wanneer wij krijgen een andere indienen laten vraag het 122222341 het tot een andere subomslag in c:\graphics\ genoemd c:\graphics\1222222\ zal leiden en het in there.

How ik zal kunnen zal zetten naar de dossiers in de bronfolder (c:\graphics\ * \ *) zoeken en dan het kopiëren aan de bestemmingsfolder?

Many dankt vooraf
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
grafische Dim, outfile, Elem Schemerige strFromDir, strToDir, strGraphicList (), I Vastgestelde fso = CreateObject („Scripting.FileSystemObject“) Reeks objEmail = CreateObject („CDO.Message“) '**** Plaatste hier uw Waarden **** van de Folder strFromDir = „C:\graphics“ strToDir = „C:\newgraphics“ xmlDir = „c:\testnew\“ i = 0 '**** Die het Xml- dossier zoeken die koord RLLO **** gebruiken Reeks xmlDoc = CreateObject („Msxml2.DOMDocument“) Reeks objFolder = fso.GetFolder (xmlDir) Reeks xmlFiles = objFolder.Files Voor Elke xmlFiles in objFolder.Files Als InStr (xmlFiles, „RLLO“) toen xml1Doc = xmlFiles.Name beëindig als daarna '**** Die het Xml- dossier laden **** xmlDoc.load („C:\testnew\“ & xml1Doc) msgbox 'Bericht xml1Doc om het ervoor te zorgen het correcte xmldossier. Behoefte te verwijderen Vastgestelde ElemList = xmlDoc.getElementsByTagName („Advertentie“) 'ElemList.Length zal u tonen hoeveel knopen van de ADVERTENTIE u vond msgbox 'Bericht ElemList.Length om correcte hoeveelheid ADVERTENTIE ervoor te zorgen 'Lijn door uw Lijst van de Knoop Voor Elke Elem in ElemList De 'controle om te zien of heeft deze Knoop een Attribuut noemde Grafisch Als niet Elem.getAttribute („Grafisch“) toen 'Zorg ervoor de Serie de juiste Grootte is strGraphicList van het Domein van Redim (I) 'Als zo, wijs de attributenwaarde aan een Serie toe strGraphicList (I) = Elem.getAttribute („Grafisch“) 'Toename de teller i = I + 1 Eind als Daarna 'Lijn door de Serie Voor I = 0 aan Ubound (strGraphicList) 'Zorg ervoor het oorspronkelijke Dossier in de Bron bestaat Als fso.FileExists (strFromDir & „\“ & strGraphicList (I)) Dan 'Vond het Dossier - kopi�ër aan Bestemming fso.CopyFile strFromDir & „\“ & strGraphicList (I), strToDir & „\“ Eind als Daarna 'Bericht om mee te delen dat de dossiers van over gekopi�ërd zouden moeten msgbox „Alle Dossiers zouden van gekopi�ërd over“ moeten 'Bevestig dat Alle Dossiers in Bestemming weggaan Voor I = 0 aan Ubound (strGraphicList) 'Zorg ervoor het oorspronkelijke Dossier in de Bron bestaat Als NIET fso.FileExists (strToDir & „\“ & strGraphicList (I)) Dan 'Gevonden niet dossier objEmail.From = „[email protected]“ objEmail.To = „[email protected]“ objEmail.Subject = „Grafisch“ & werd strGraphicList (I) & „niet gevonden“ objEmail.Textbody = „Grafische identiteitskaart“ & strGraphicList (I) werden & „niet gevonden“ objEmail.Configuration.Fields.Item _ („http://schemas.microsoft.com/cdo/configuration/sendusing“) = 2 objEmail.Configuration.Fields.Item _ („http://schemas.microsoft.com/cdo/configuration/smtpserver“) = _ „xxx.xxx.xxx.xxx“ objEmail.Configuration.Fields.Item _ („http://schemas.microsoft.com/cdo/configuration/smtpserverport“) = 25 objEmail.Configuration.Fields.Update objEmail.Send Eind als Daarna 'Controle om te zien of hebt u om het even welke ontbrekende e-mail naar u verzenden msgbox „Om het even welke ontbrekende grafische e-mail?“ '' Het schrappen van de Grafiek in de bronaandrijving 'Voor I = 0 aan Ubound (strGraphicList) '' Zorg het oorspronkelijke Dossier ervoor bestaat in de Bron 'Als fso.FileExists (strFromDir & „\“ & strGraphicList (I)) Dan ''Vond het Dossier - schrap dossier uit Bron 'fso.DeleteFile strFromDir & „\“ & strGraphicList (I) 'Beëindig als 'Daarna De 'al grafiek in de bronaandrijving wordt shoud geschrapt 'msgbox de „Grafiek zou uit bron“ moeten worden geschrapt 'E-mail om de MENS te verzenden te laten Rekruut kennen is klaar 'objEmail.From = „[email protected]“ 'objEmail.To = „[email protected]“ 'objEmail.Subject = de „Rekruut is klaar“ 'objEmail.Textbody = de „Rekruut is klaar. Heb een groot weekend“ 'objEmail.Configuration.Fields.Item _ '(„http://schemas.microsoft.com/cdo/configuration/sendusing“) = 2 'objEmail.Configuration.Fields.Item _ '(„http://schemas.microsoft.com/cdo/configuration/smtpserver“) = _ '„xxx.xxx.xxx.xxx“ 'objEmail.Configuration.Fields.Item _ '(„http://schemas.microsoft.com/cdo/configuration/smtpserverport“) = 25 'objEmail.Configuration.Fields.Update 'objEmail.Send msgbox „Gedaan“ WScript.Quit ()

Antwoord : VBscript aan onderzoekssubfolders en exemplaardossiers

Als het antwoord op mijn bovengenoemde vraag ja is, dan zouden veranderende lijnen 49-52 in uw manuscript hierboven aan onderstaand, moeten werken.

Het neemt eenvoudig een andere omslag in de bronplaats op die de eerste 6 karakters van de beeldnaam is.

De omslag van de bestemming blijft onveranderd. Ik veronderstel het nog het gaan naar de één omslag en de niet subomslagen is?
1:
2:
3:
4:

Als fso.FileExists (strFromDir & „\ „& Medio (strGraphicList (I), 0.6) &“ \ „& strGraphicList (I)) Dan 
                'Vond het Dossier - kopi�ër aan Bestemming 
                fso.CopyFile strFromDir & „\ „& Medio (strGraphicList (I), 0.6) &“ \ „& strGraphicList (I), strToDir &“ \ „  
        Eind als
Andere oplossingen  
 
programming4us programming4us