Fråga : VBscript som söker subfolders och som ska kopieras, sparar

Hi den All

I förmiddagen som hoppas någon, kan hjälpa mig med detta. Jag har skriftlig att fästas för att skriva med hjälp ltlbearand3 för att läsa en xml sparar och söker för alla diagram och kopierar därefter dem från källarkivet till ett nytt destinationsarkiv. Denna var den funktionsdugliga boten, tills de avgjorde att ändra oss mottar våra diagram. Sparar ska alltid är numeriska kända innehållande 9 numrerar, så vad händer, är att spara låter appell det 123456789 som ska för att kopieras över till c:\graphics\123456\1234567 89. Nu alla sparar den start med ska 123456 kopieras in i mappen c:\graphics\123456\ *. När vi får another sparar låter appell det 122222341 det ska skapar en annan undermapp i c:\graphics\ som kallas c:\graphics\1222222\ och, sätter den i there.

How ska I är kompetent att söka för sparar i källarkivet (c:\graphics\ * \ *) och kopierar därefter den till destinationsarkivet? tack för

Many i advance > för

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:

" codeBody " " fso för >Dim för class= " för " klar "

Svar : VBscript som söker subfolders och som ska kopieras, sparar

Om svaret till mitt ovannämnt ifrågasätter är ja, då ändra fodrar 49-52 i ditt skrivar över till det nedanfört, bör fungerar.

Det sätter enkelt in en annan mapp in i källläget som är de första 6 teckenen av den kända avbilda.

Destinationsmappen återstår oförändrad. Förmiddag som I antar den, är stilla gå till den en mappen och de inte undermapparna?

1: 2: 3: 4:

Om fso.FileExists (strFromDir & ”\ ”& mitt- (strGraphicList (I), 0.6) &” \ ”& strGraphicList (I)) Därefter 'Grunda spara - kopiera till destinationen fso.CopyFile-strFromDir & ”\ ”& mitt- (strGraphicList (I), 0.6) &” \ ”& strGraphicList (I), strToDir &” \ ”, Avsluta om