Оно звучает как filename хранится в вашей таблице уже содержит период (.) устанавливает его от дополнения к файлу, или то filename, котор хранят в вашей таблице не закончен. Попытка:
strFileName = Dir («f:\Test Directory\Live\» & FName & «*.*") это не работают
Причина она находит такой же архив каждое время что вы не извлекаете архив, котор вы как раз нашли, вы копирует его. В вашем первоначально столбе вы сказали: «Если они после этого двигают архивы к директории». Но командование FileCopy не двигает архив, его как раз копирует его. Что I почему в моем самом недавнем Кодем вы увидите что я переименовал архив, который фактическ двигает его к новой директории.
Назовите «C:\Access\test\Source\» & strFileName как «C:\Access\test\Destination\» & strFileName
Также, если вы используете функцию Dir () и проходите им foldername each time, то они возвратят первый архив в скоросшивателе, каждом времени. Если вы фактическ хотите показать все архивы в скоросшивателе, то вы использовать что-то как:
strFileName = Dir («f:\Test Directory\Live ")
strFileName debug.print
Сделайте
strFileName = Dir ()
strFileName debug.print
Закрепите петлеть пока Len (strFileName) > 0
Также, Кодий, котор вы используете не будет искать для второго или третьего архива с таким же дополнением к файлу. Оно как раз обходит те. Если то не будет вопрос после этого после этого, то выходите вашему Кодему дорога, котор оно. Если то smogло быть вопрос после этого вы потребность посмотреть мой самый недавний этап Кодего и скопировать ту логику.
