Suena como el nombre de fichero que se almacena en su tabla contiene ya el período (.) cuál fija lo apagado de la extensión de archivo, o ése el nombre de fichero almacenado en su tabla no es completo. Intento:
strFileName = Dir (“f:\Test Directory\Live\” y FName y “*.*") éste no trabaja
La razón está encontrando que el mismo archivo es cada vez que usted no está quitando el archivo que usted acaba de encontrar, usted lo está copiando. En su poste original usted dijo: “Si entonces mueven los archivos al directorio”. Pero el comando de FileCopy no mueve el archivo, él apenas lo copia. Que I porqué en mi código más reciente usted verá que retitulé el archivo, que lo mueve realmente al nuevo directorio.
Nombrar “C:\Access\test\Source\” y el strFileName como “C:\Access\test\Destination\” y strFileName
También, si usted utiliza la función de Dir () y le pasa un foldername cada vez, volverá el primer archivo en la carpeta, cada vez. Si usted quiere realmente exhibir todos los archivos en una carpeta, usted tendría que utilizar algo como:
strFileName = Dir (“f:\Test Directory\Live ")
strFileName de debug.print
Hacer
strFileName = Dir ()
strFileName de debug.print
Colocar mientras que Len (strFileName) > 0
También, el código que usted está utilizando no buscará para un segundo o tercer archivo con la misma extensión de archivo. Apenas puenteará ésos. Si eso no es una edición entonces entonces dejar a su código la manera que es. Si eso podría ser una edición entonces usted necesidad de mirar mi segmento de código más reciente y de copiar esa lógica.
