Вопрос : архивы возвращений программы ложные пропавшие после находят архивы

Я имею короткий сценарий читает от списка, копирует архивы от списка, делает архив txt скопированных архивов, делает архив текста архивов, котор он ищет и делает архив txt архивов оно не smogло найти. Проблема что она перечисляет некоторые архивы по мере того как пропускающ даже если она нашел их и скопировал их. Я не могу увидеть ошибку так если кто-то указало бы это вне, то, оно был бы больш.
I вклюало Кодего и files. 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:

># " class= " id= " codeSnippet846367

$Track»);
раскройте (MISSING_FILES, «>$Missing_files»);
раскройте (COPIED_FILES, «>$Copied_files»);
напечатайте COPIED_FILES «получая архивы от списка \ n»;
напечатайте «COPIED_FILES \ n»;


раскройте (В, «<», $transfer) или умрите «не smogл раскрыть $transfer: $! \ n»;
пока () {
      chomp;
      # мо ($filename) = (=~/^ _ $ (. +) \. +$/);
       мо ($filename) = (=~/^ _ $ (. +) (\ _.+)? $/);
      $file {lc ($filename)}++;
печать «получая архивы $filename \ n»;
}
конец (ВНУТРИ);


находка &wanted (\, $SrcRootDir);


конец (СЛЕД);
конец (COPIED_FILES);

печать MISSING_FILES «эти будет чертежами не smogли быть ы \ n»;
печать MISSING_FILES «пожалуйста проверяет для неправильно чертежей номеров в списке \ n»;
«печати MISSING_FILES \ n»;


мое %file1;
раскройте (FILE1, «T:\Team\transfer\tracking.txt ") или умрите «не smogл раскрыть $Track: $! \ n»;
пока () {
 $file1 {lc $_} =1;
}
конец (FILE1);

раскройте (FILE2, «t: /team/transfer/transfer_list.txt ") или умирают «не smogли раскрыть $transfer: $! \ n»;
пока () {
  если ($file1 {lc $_}) {
    печать $_;
печать MISSING_FILES «$_ \ n»;
  }
}
конец (FILE2);

конец (MISSING_FILES);

сон (10); 

выход;

подводная лодка хотела {

если ($File::, тоНаходка:: dir = /old/) 
	{$File:: Находка:: чернослив = 1;
	возвращение;
	}

# мо ($filename) = (=~/^ _ $ (. +) (\. +)? $/);
 мо ($filename) = (=~/^ _ $ (. +) \ _.+$/);
# печать «получая архив $filename \ n»;
    возвратите если не существовать $file {lc ($filename)};
   напечатайте «копируя $File:: Находка:: имя к $DestRootDir \ n»;
# СЛЕД «$File печати:: Находка:: имя \ n»; 
СЛЕД «$filename \ n» печати;
печать COPIED_FILES «$filename \ n»;



    # экземпляр ($File:: Находка:: имя, «$DestRootDir/$_») или предупреждает «не smogл скопировать $_: $! \ n»;
скопируйте ($File:: Находка:: имя, «$DestRootDir/$_») или печатает СЛЕД «не smogло скопировать $_: $! \ n»;

}

class= " lastRow

>Attachments " имени " class= class= " значение "

Вопрос : архивы возвращений программы ложные пропавшие после находят архивы

Ответ : архивы возвращений программы ложные пропавшие после находят архивы

DoCmd.OpenForm «frm_CampaignDetail», acNormal, «CampaignID =» & Me.CampaignID, acDialog