Fråga : Kopiera sparar från källarkiv till lokalarkivet Using VBA

I mitt projektera, mig har en ledar- dator som ska postar sparar till flera olika mappar i ett projekteraarkiv. så \ för be

för allmänningarkivstyrka \ servername \ data \ CxFiles
där ska är efter mapparna som jag skulle önskar att kopiera \ för from

\ servername \ data \ CxFiles \ för ATR
\ \ servername \ data \ CxFiles \ för IIF
\ \ servername \ data \ CxFiles \ för RIF
\ \ servername \ data \ CxFiles \ för Startup
\ \ servername \ data \ CxFiles \ för ConstructionDwgs
\ \ servername \ data \ CxFiles \ för FPT
\ \ servername \ data \ CxFiles \ för Spec
\ \ servername \ data \ CxFiles \ FAT

There är ett standart sparar strukturerar på lokalen bearbetar med maskin som har all de samma något liknande för

C:\Commissioning Database\PDFReports\ skulle/>I som är kompetent att klicka en knäppas tar fram in och uppdaterar därefter alla de folders.

So, om i det ledar- arkivet du har \ för following
\ servername \ data \ CxFiles \ ATR \ \ för File1.pdf
\ servername \ data \ CxFiles \ ATR \ \ för File2.pdf
\ servername \ data \ CxFiles \ ATR \ File3.pdf

and lokalt mig le1.pdf

I för have
C:\Commissioning Database\PDFReports\ATR\Fi endast att önska att kopiera File2.pdf och File3.pdf till lokalen machine.

I i stort behöv precis att avspegla, allt vad information är i det ledar- arkivet på lokalen bearbetar med maskin.  Det kan finnas ett läge var File1.pdf byttes ut med en nyare version och jag skulle något liknande för att överskriva lokalen kopierar, om det finns en nyare version på den ledar- directory.
Do som jag behöver att se en gruppera skrivar? eller kan jag göra denna i VBA? eller vad? hjälp för

Any är väldeliga appreciated.

Thanks Related lösningar för class= ": " title= " för Copy nytt sparar endast från directory

Svar : Kopiera sparar från källarkiv till lokalarkivet Using VBA

testa detta kodifierar

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

Sub copyFiles ()
Dunkla myFolders (), srcFolder som stränger, j som är pdfFile som, stränger, destFolder som stränger
destFolder = ”C:\Commissioning Database\PDFReports\”,
srcFolder = ”\ \ servername \ data \ CxFiles \”,
myFolders = samling (”ATR”, ”IIF”, ”RIF”, ”starten”, ”ConstructionsDwgs”, ”FPT”, ”specifikation”, ”FETT”)
För j = LBound (myFolders) till UBound (myFolders)
    pdfFile = Dir (srcFolder & myFolders (j) & ”\ *.pdf”)
    pdfFile "" <> för stunder,
        FileCopy srcFolder & myFolders (j) & ”\” & pdfFile, destFolder & myFolders (j) & ”\” & pdfFile
        pdfFile = Dir
    Wend
Därefter
Avsluta suben
Andra lösningar  
 
programming4us programming4us