Cela ressemble à du nom de fichier qui est stocké dans votre table contient déjà la période (.) ce qui place lui au loin de la prolongation de dossier, ou cela le nom de fichier stocké dans votre table n'est pas complet. Essai :
strFileName = Dir (« f:\Test Directory\Live\ » et FName et « *.*") ceci ne fonctionne pas
La raison elle trouve que le même dossier est chaque fois que vous n'enlevez pas le dossier que vous avez juste trouvé, vous ce copient. Dans votre poteau original vous avez dit : « S'ils déplacent alors les dossiers à l'annuaire ». Mais la commande de FileCopy ne déplace pas le dossier, il le copie juste. Qu'I pourquoi en mon code plus récent vous verrez que j'ai retitré le dossier, qui le déplace réellement au nouvel annuaire.
Nommer « C:\Access\test\Source\ » et le strFileName en tant que « C:\Access\test\Destination\ » et strFileName
En outre, si vous employez la fonction de Dir () et lui passez un foldername chaque fois, il renverra le premier dossier dans la chemise, chaque fois. Si vous voulez réellement montrer tous les dossiers dans une chemise, vous devriez employer quelque chose comme :
strFileName = Dir (« f:\Test Directory\Live ")
strFileName de debug.print
Faire
strFileName = Dir ()
strFileName de debug.print
Faire une boucle tandis que Len (strFileName) > 0
En outre, le code que vous employez ne recherchera pas un deuxième ou troisième dossier avec la même prolongation de dossier. Il déviera juste ceux. Si ce n'est pas une issue puis puis laisser à votre code la manière qu'elle est. Si ce pourrait être une issue puis vous le besoin de regarder mon segment de code plus récent et de copier cette logique.
