Cuestión : VBscript para buscar subfolders y para copiar archivos

Hola All

I que espera a alguien puede ayudarme con esto. He escrito la escritura atada con la ayuda ltlbearand3 para leer un archivo del xml y para buscar para todos los gráficos y después para copiarlos del directorio de fuente a un nuevo directorio de destinación. Esto trabajaba muy bien hasta que decidieran a cambiar nosotros reciban nuestros gráficos. Los archivos serán siempre un nombre numérico que contiene 9 números, así que qué está sucediendo es que el archivo deja llamada él 123456789 será copiado encima al 89 de c:\graphics\123456\1234567. Ahora todos los archivos que comienzan con 123456 serán copiados en la carpeta c:\graphics\123456\ *. ¿Cuándo conseguimos otros archivos dejamos llamada él 122222341 que creará otra carpeta secundaria en c:\graphics\ llamado c:\graphics\1222222\ y ponerlo en there.

How I podrá buscar para los archivos en el directorio de fuente (c:\graphics\ * \ *) y después copiarlo al directorio de destinación? gracias por adelantado del

Many class= > " claro " del
> del " codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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:
fso notpretty del >Dim " del class= " de " codeSnippet826651 del id= del
class= del

Respuesta : VBscript para buscar subfolders y para copiar archivos

Si la respuesta a mi pregunta antedicha está sí, después el cambio alinea 49-52 en su escritura arriba al below, debe trabajar.

Inserta simplemente otra carpeta en la localización de la fuente que es los primeros 6 carácteres del nombre de la imagen.

La carpeta de la destinación permanece sin cambiar. ¿Estoy asumiendo que todavía va a la una carpeta y a las carpetas no secundarias?
1:
2:
3:
4:

Si fso.FileExists (strFromDir y “\ “y mediados de (strGraphicList (i), 0.6) y” \ “y strGraphicList (i)) Entonces 
                'Encontró el archivo - para copiar a la destinación 
                strFromDir de fso.CopyFile y “\ “y mediados de (strGraphicList (i), 0.6) y” \ “y strGraphicList (i), strToDir y” \ “  
        Terminar si
Otras soluciones  
 
programming4us programming4us