Вопрос : Скопируйте архивы от директории источника к местной директории Using VBA

В моем проекте, я имею один мастерский компьютер который вывесит архивы к нескольким по-разному скоросшивателей в директории проекта. так обычный директорией могла \ be

\ servername \ данные \ CxFiles
там будет следующий скоросшиватели я хотел бы для того чтобы скопировать \ from

\ servername \ данные \ \ CxFiles \ ATR
\ servername \ данные \ \ CxFiles \ IIF
\ servername \ данные \ \ CxFiles \ RIF
\ servername \ данные \ \ CxFiles \ Startup
\ servername \ данные \ \ CxFiles \ ConstructionDwgs
\ servername \ данные \ \ CxFiles \ FPT
\ servername \ данные \ \ CxFiles \ Spec
\ servername \ данные \ CxFiles \ FAT

There будет структурой стандартного архива на местной машине имеет все из тех такого же

I folders
C:\Commissioning Database\PDFReports\ хотел была бы мочь щелкнуть кнопкой в доступе, и после этого уточняет все из тех folders.

So если в мастерской директории вы имеете \ following
\ servername \ данные \ CxFiles \ ATR \ \ File1.pdf
\ servername \ данные \ CxFiles \ ATR \ \ File2.pdf
\ servername \ данные \ CxFiles \ ATR \ File3.pdf

and местно я le1.pdf

I have
C:\Commissioning Database\PDFReports\ATR\Fi только хотеть скопировать File2.pdf и File3.pdf к местному machine.

I основно как раз нужно отразить любая информация находится в мастерской директории на местной машине.  Может быть ситуация где File1.pdf было заменено с более новым вариантом и я хотел был бы переписывать местный экземпляр если будет более новый вариант на оригинале directory.

Do, котор мне нужно смотреть сценарий серии? или могу я сделать это в VBA? или? помощью

Any будет больш appreciated.

Thanks class= " ясное " >

Related: архивы " qRelatedChild " " class= директории " title= " href= " /OS/Microsoft_Operating_Systems/MS_DOS/Q_26330388.html Copy новые только от directory

Ответ : Скопируйте архивы от директории источника к местной директории Using VBA

испытайте это Кодие

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13:

Sub copyFiles () Затемните myFolders (), srcFolder как шнур, j, pdfFile как шнур, destFolder как шнур destFolder = «C:\Commissioning Database\PDFReports\» srcFolder = «\ \ servername \ данные \ CxFiles \» myFolders = блок («ATR», «IIF», «RIF», «запуск», «ConstructionsDwgs», «FPT», «Spec», «FAT») Для j = LBound (myFolders) к UBound (myFolders) pdfFile = Dir (srcFolder & myFolders (j) & «\ *.pdf») Пока pdfFile <> "" srcFolder FileCopy & myFolders (j) & «\» & pdfFile, destFolder & myFolders (j) & «\» & pdfFile pdfFile = Dir Wend Затем Подводная лодка конца