Frage : Akten vom Quellverzeichnis zum lokalen Verzeichnis Using VBA kopieren

In meinem Projekt habe ich einen Mastercomputer, der Akten zu einigen verschiedenen Faltblättern in einem Projektverzeichnis bekannt gibt. so konnte das allgemeine Verzeichnis be

\ \ servername \ Daten \ CxFiles
dort ist die folgenden Faltblätter, die ich from

\ \ servername \ Daten \ CxFiles \ ATR
\ \ servername \ Daten \ CxFiles \ IIF
\ \ servername \ Daten \ CxFiles \ RIF
\ \ servername \ Daten \ CxFiles \ Startup
\ \ servername \ Daten \ CxFiles \ ConstructionDwgs
\ \ servername \ Daten \ CxFiles \ FPT
\ \ servername \ Daten \ CxFiles \ Spec
\ \ servername \ Daten \ CxFiles \ FAT

There ist eine Standardaktenstruktur auf dem lokalen Rechner, der alle jene vom gleichen folders
C:\Commissioning Database\PDFReports\

I möchte sein, einen Knopf im Zugang anzuklicken und aktualisiert dann alle jene folders.

So hat, wenn im Hauptverzeichnis Sie following
\ \ servername \ Daten \ CxFiles \ ATR \ File1.pdf
\ \ servername \ Daten \ CxFiles \ ATR \ File2.pdf
\ \ servername \ Daten \ CxFiles \ ATR \ File3.pdf

and am Ort ich have
C:\Commissioning Database\PDFReports\ATR\Fi le1.pdf

I nur File2.pdf und File3.pdf zum lokalen machine.

I im Allgemeinen kopieren wünschen lassen widerspiegeln einfach müssen, was Informationen im Hauptverzeichnis auf dem lokalen Rechner sind.  Es kann eine Situation geben, in der File1.pdf durch eine neuere Version ersetzt wurde und ich die lokale Kopie überschreiben möchte, wenn es eine neuere Version auf dem Meister directory.

Do gibt, das ich einen Reihenindex betrachten muss? oder kann ich dies in VBA tun? oder was?

Any Hilfe ist groß appreciated.

Thanks
Related Lösungen: Copy neue Akten nur von directory

Antwort : Akten vom Quellverzeichnis zum lokalen Verzeichnis Using VBA kopieren

dieses prüfen Codes

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

Sub copyFiles ()
myFolders (), srcFolder als Schnur, J verdunkeln, das als Schnur, destFolder als Schnur pdfFile ist
destFolder = „C:\Commissioning Database\PDFReports\“
srcFolder = „\ \ servername \ Daten \ CxFiles \“
myFolders = Reihe („automatische Rückstellung“, „IIF“, „RIF“, „Start“, „ConstructionsDwgs“, „FPT“, „Spezifikt.“, „FAT“)
Für J = LBound (myFolders) zu UBound (myFolders)
    pdfFile = Dir (srcFolder u. myFolders (j) u. „\ *.pdf“)
    Während pdfFile <> ""
        FileCopy srcFolder u. myFolders (j) u. „\“ u. pdfFile, destFolder u. myFolders (j) u. „\“ u. pdfFile
        pdfFile = Dir
    Wend
Zunächst
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us