Cuestión : los archivos que falta falsos de las vueltas del programa después de encuentran los archivos

Tengo una escritura corta que lea en una lista, copie los archivos de la lista, haga un archivo del txt de los archivos copiados, haga un archivo de texto de los archivos que está buscando y haga un archivo del txt de los archivos no podría encontrar. El problema es que enumera algunos archivos pues faltando aunque los encontró y los copió. No puedo ver el error tan si alguien señalara esto, él sería grande. el
I ha incluido el código y el files. 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:

¡># notpretty " del class= " del id= " codeSnippet846367 del

$Track”);
abrirse (MISSING_FILES, “>$Missing_files”);
abrirse (COPIED_FILES, “>$Copied_files”);
imprimir COPIED_FILES “que consigue archivos de la lista \ n”;
imprimir “\ n” de COPIED_FILES;


abrirse (EN, “<”, $transfer) o morir “no podría abrir $transfer: ¡$! \ n”;
mientras que () {
      chomp;
      # mi ($filename) = (=~/^ del _ de $ (. +) \. +$/);
       mi ($filename) = (=~/^ del _ de $ (. ¿+) (\ _.+)? $);
      $file {lc ($filename)}++;
impresión los “que consigue archivos $filename \ n”;
}
cierre (ADENTRO);


hallazgo (\ &wanted, $SrcRootDir);


cierre (PISTA);
cierre (COPIED_FILES);

la impresión MISSING_FILES “éstos es los dibujos que no se podrían encontrar \ n”;
la impresión MISSING_FILES “comprueba por favor para saber si hay números de dibujo incorrectos en la lista \ n”;
“\ n” de la impresión MISSING_FILES;


mi %file1;
abrirse (FILE1, “T:\Team\transfer\tracking.txt ") o morir “no podría abrir $Track: ¡$! \ n”;
mientras que () {
 $file1 {lc $_} =1;
}
cierre (FILE1);

abrirse (FILE2, “T: /team/transfer/transfer_list.txt ") o mueren “no podrían abrir $transfer: ¡$! \ n”;
mientras que () {
  a menos que ($file1 {lc $_}) {
    impresión $_;
impresión MISSING_FILES “$_ \ n”;
  }
}
cierre (FILE2);

cierre (MISSING_FILES);

sueño (10); 

salida;

el submarino quiso {

si ($File:: Hallazgo:: dir = /old/) 
	{$File:: Hallazgo:: pasa = 1;
	vuelta;
	}

# mi ($filename) = (=~/^ del _ de $ (. +) (\. ¿+)? $);
 mi ($filename) = (=~/^ del _ de $ (. +) \ _.+$/);
# impresión el “que consigue archivo $filename \ n”;
    volver a menos que exista $file {lc ($filename)};
   imprimir de “$File copiado:: Hallazgo:: nombre a $DestRootDir \ a n”;
# PISTA “$File de la impresión:: Hallazgo:: nombre \ n”; 
PISTA “$filename \ n” de la impresión;
impresión COPIED_FILES “$filename \ n”;



    # copia ($File:: Hallazgo:: el nombre, “$DestRootDir/$_”) o advierte que “no podría copiar $_: ¡$! \ n”;
copiar ($File:: Hallazgo:: el nombre, “$DestRootDir/$_”) o imprime la PISTA “no podría copiar $_: ¡$! \ n”;

}

class= " lastRow del

>Attachments del " nombre " del class= del class= " valor " del

del >

Cuestión : los archivos que falta falsos de las vueltas del programa después de encuentran los archivos

Respuesta : los archivos que falta falsos de las vueltas del programa después de encuentran los archivos

DoCmd.OpenForm “frm_CampaignDetail”, acNormal, “CampaignID =” y Me.CampaignID, acDialog