Question : Copier les dossiers à partir du répertoire source au répertoire local Using VBA

Dans mon projet, j'ai un ordinateur principal qui signalera des dossiers à plusieurs différentes chemises dans un annuaire de projet. ainsi l'annuaire commun pourrait \ du be

\ servername \ données \ CxFiles
là sera les chemises suivantes que je voudrais pour copier \ du from

\ servername \ données \ \ de CxFiles \ ATR
\ servername \ données \ \ de CxFiles \ IIF
\ servername \ données \ \ de CxFiles \ RIF
\ servername \ données \ \ de CxFiles \ Startup
\ servername \ données \ \ de CxFiles \ ConstructionDwgs
\ servername \ données \ \ de CxFiles \ FPT
\ servername \ données \ \ de CxFiles \ Spec
\ servername \ données \ CxFiles \ FAT

There est une structure de dossier standard sur la machine locale qui a tout ces même

I du folders
C:\Commissioning Database\PDFReports\ voudrait pouvoir cliquer un bouton dans l'accès, et puis met à jour tous ces folders.

So si dans le répertoire maître vous faites vouloir \ du following
\ servername \ données \ CxFiles \ ATR \ \ de File1.pdf
\ servername \ données \ CxFiles \ ATR \ \ de File2.pdf
\ servername \ données \ CxFiles \ ATR \ File3.pdf

and localement je le le1.pdf

I du have
C:\Commissioning Database\PDFReports\ATR\Fi seulement copier File2.pdf et File3.pdf au machine.

I fondamentalement devoir juste refléter quelqu'information soit dans le répertoire maître sur la machine locale.  Il peut y a une situation où File1.pdf a été remplacé par une plus nouvelle version et je voudrais recouvrir la copie locale s'il y a une plus nouvelle version sur le maître directory.

Do que je dois regarder un manuscrit en lots ? ou est-ce que je peux faire ceci dans VBA ? ou ce qui ? l'aide du

Any est considérablement appreciated.

Thanks class= > " clair " de

solutions >Related class= dossiers >Copy de " qRelatedChild " de class= à partir d'annuaire " de title= " du href= " /OS/Microsoft_Operating_Systems/MS_DOS/Q_26330388.html " de

Réponse : Copier les dossiers à partir du répertoire source au répertoire local Using VBA

examiner ceci des codes

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

Substrater les copyFiles () Obscurcir les myFolders (), le srcFolder comme corde, j, pdfFile comme corde, destFolder comme corde destFolder = « C:\Commissioning Database\PDFReports\ » srcFolder = « \ \ servername \ données \ CxFiles \ » myFolders = rangée (« ATR », « IIF », « RIF », « démarrage », « ConstructionsDwgs », « FPT », « Spéc. », « FAT ») Pour j = LBound (myFolders) à UBound (myFolders) pdfFile = Dir (srcFolder et myFolders (j) et « \ *.pdf ») Tandis que pdfFile <> "" srcFolder et myFolders de FileCopy (j) et « \ » et pdfFile, destFolder et myFolders (j) et « \ » et pdfFile pdfFile = Dir Wend Après Sous-marin d'extrémité