Pergunta : Copiar limas do diretório de fonte ao diretório local Using VBA

Em meu projeto, eu tenho um computador mestre que afixará limas a diversos dobradores diferentes em um diretório do projeto. assim o diretório comum pôde \ do be

\ servername \ dados \ CxFiles
lá será os seguintes dobradores que eu quereria copiar \ do from

\ servername \ dados \ \ de CxFiles \ ATR
\ servername \ dados \ \ de CxFiles \ IIF
\ servername \ dados \ \ de CxFiles \ RIF
\ servername \ dados \ \ de CxFiles \ Startup
\ servername \ dados \ \ de CxFiles \ ConstructionDwgs
\ servername \ dados \ \ de CxFiles \ FPT
\ servername \ dados \ \ de CxFiles \ Spec
\ servername \ dados \ CxFiles \ FAT

There é uma estrutura de lima padrão na máquina local que tem todo aqueles mesmo

I do folders
C:\Commissioning Database\PDFReports\ gostaria de poder estalar uma tecla no acesso, e atualiza então todos aqueles folders.

So se no diretório mestre você manda \ do following
\ servername \ dados \ CxFiles \ ATR \ \ de File1.pdf
\ servername \ dados \ CxFiles \ ATR \ \ de File2.pdf
\ servername \ dados \ CxFiles \ ATR \ File3.pdf

and localmente mim o le1.pdf

I do have
C:\Commissioning Database\PDFReports\ATR\Fi somente querer copiar basicamente File2.pdf e File3.pdf ao machine.

I apenas precisar de espelhar o que informação está no diretório mestre na máquina local.  Pode haver uma situação onde File1.pdf seja substituído com uma versão mais nova e eu gostasse de overwrite a cópia local se há uma versão mais nova no mestre directory.

Do que eu preciso de olhar um certificado do grupo? ou posso eu fazer este em VBA? ou que? a ajuda do

Any é extremamente appreciated.

Thanks class= > " desobstruído " do
soluções >Related class= limas novas >Copy do " qRelatedChild " " do class= do diretório " do title= da " do href= " /OS/Microsoft_Operating_Systems/MS_DOS/Q_26330388.html do

Resposta : Copiar limas do diretório de fonte ao diretório local Using VBA

testar isto códigos

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

Sub copyFiles ()
Escurecer os myFolders (), srcFolder como a corda, j, pdfFile como a corda, destFolder como a corda
destFolder = “C:\Commissioning Database\PDFReports\”
srcFolder = “\ \ servername \ dados \ CxFiles \”
myFolders = disposição (“ATR”, “IIF”, “RIF”, “partida”, “ConstructionsDwgs”, “FPT”, “especs.”, “FAT”)
Para j = LBound (myFolders) a UBound (myFolders)
    pdfFile = Dir (srcFolder & myFolders (j) & “\ *.pdf”)
    Quando pdfFile <> ""
        srcFolder & myFolders de FileCopy (j) & “\” & pdfFile, destFolder & myFolders (j) & “\” & pdfFile
        pdfFile = Dir
    Wend
Em seguida
Submarino da extremidade
Outras soluções  
 
programming4us programming4us