Pytanie : Odbitkowy Kartoteka Od Źródło Książka telefoniczna Lokalny Książka telefoniczna Using VBA

W mój projekt, I mieć jeden mistrzowski komputer che wysyłać kartoteka kilka różny falcówka w projekt książka telefoniczna. w ten sposób the pospolity książka telefoniczna można be

\ \ servername \ dane \ CxFiles
Tam  być the następujący falcówka że I chcieć from

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

There być standardowy kartoteka struktura na the lokalny maszyna który mieć/>There tamte ten sam folders
C:\Commissioning Database\PDFReports\

I polubić sprawnie guzik w Dostęp, i wtedy aktualizować i tamte folders.

So jeżeli w the mistrzowski książka telefoniczna ty mieć the following
\ \ servername \ dane \ CxFiles \ ATR \ File1.pdf
\ \ servername \ dane \ CxFiles \ ATR \ File2.pdf
\ \ servername \ dane \ CxFiles \ ATR \ File3.pdf

and w okolicy I have
C:\Commissioning Database\PDFReports\ATR\Fi le1.pdf

I tylko File2.pdf i File3.pdf the miejscowy machine.

I podstawowy właśnie potrzebować właśnie informacja być w the mistrzowski książka telefoniczna na the lokalny maszyna.  Tam  móc sytuacja dokąd File1.pdf zamieniać z nowy wersja i I polubić overwrite the lokalny kopia jeżeli tam  być nowy wersja na the mistrz directory.

Do I potrzebować wsad pismo? lub móc I vba w VBA? lub co?

Any pomoc być ogromnie appreciated.

Thanks
Related Rozwiązanie: Copy Nowy Kartoteka Tylko od directory

Odpowiedź : Odbitkowy Kartoteka Od Źródło Książka telefoniczna Lokalny Książka telefoniczna Using VBA

badać kod kod

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

Okręt podwodny copyFiles ()
Ciemnawy myFolders (), srcFolder Jako Sznurek, j, pdfFile Jako Sznurek, destFolder Sznurek
destFolder = "C:\Commissioning Database\PDFReports\"
srcFolder = "\ \ servername \ dane \ CxFiles \"
myFolders = Szyk ("ATR", "IIF", "RIF", "Rozpoczęcie", "ConstructionsDwgs", "FPT", "Spec", "SADŁO")
Dla j = LBound (myFolders) UBound (myFolders)
    pdfFile = Dir (srcFolder & myFolders (j) & "\ *.pdf")
    Podczas Gdy pdfFile <> ""
        FileCopy srcFolder & myFolders (j) & "\" & pdfFile, destFolder & myFolders (j) & "\" & pdfFile
        pdfFile = Dir
    Wend
Następnie
Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us