Вопрос : VBscript для того чтобы искать subfolders и копировать архивы

Hi All

I am надеясь кто-то может помочь мне с этим. Я написал прикрепленный сценарий с помощью ltlbearand3 для того чтобы прочитать архив xml и поискать для всех графиков и после этого скопировать их от директории источника к новой директории назначения. Это работало отлично до тех пор пока они не решить изменить мы получат наши графики. Архивы всегда будут численный именем содержа 9 номеров, поэтому случается что архив препятствует звоноку оно 123456789 будет скопировано сверх к 89 c:\graphics\123456\1234567. Теперь все архивы начинают с 123456 будут скопированы в скоросшиватель c:\graphics\123456\ *. Когда мы получаем другие архивы препятствуем звоноку оно 122222341, котор он создаст другой sub скоросшиватель в вызванном c:\graphics\ c:\graphics\1222222\ и положить его в there.

How I будет искать для архивов в директории источника (c:\graphics\ * \ *) и после этого копировать его к директории назначения? спасибо заранее

Many class= " ясное " >
> " codeSnippet " class=
class= " lineNumbers "
class= 
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 >Dim " class= " " codeSnippet826651 id=
class=

Ответ : VBscript для того чтобы искать subfolders и копировать архивы

Если ответ к моему вышеуказанному вопрос в том, что да, после этого изменяющ выравнивает 49-52 в вашем сценарии выше к внизу, то работать.

Он просто вводит другой скоросшиватель в положением источника будет первые 6 характеров имени изображения.

Скоросшиватель назначения остает неизменно. Я принимаю он все еще идет к одному скоросшивателю и sub скоросшивателям?
1:
2:
3:
4:

Если fso.FileExists (strFromDir & «\ «& средний (strGraphicList (I), 0.6) &» \ «& strGraphicList, то (I)) После этого 
                'Нашл архив - для того чтобы скопировать к назначению 
                strFromDir fso.CopyFile & «\ «& средний (strGraphicList (I), 0.6) &» \ «& strGraphicList (I), strToDir &» \ «  
        Закончитесь если
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us