Cuestión : Copiar los archivos del directorio de fuente al directorio local usar VBA

En mi proyecto, tengo una computadora principal que fije archivos a varias diversas carpetas en un directorio del proyecto. el directorio común pudo tan \ \ servername \ datos \ CxFiles
del be

allí será las carpetas siguientes que querría para copiar \ \ servername \ datos \ \ \ servername \ datos \ \ \ servername \ datos \ \ \ servername \ datos \ \ \ servername \ datos \ \ \ servername \ datos \ \ \ servername \ datos \ \ \ servername \ datos \ CxFiles \ FAT


de CxFiles \ del ATR
de CxFiles \ del IIF
de CxFiles \ del RIF
de CxFiles \ del Startup
de CxFiles \ del ConstructionDwgs
de CxFiles \ del FPT
de CxFiles \ del Spec
/>There es una estructura de archivo estándar en la máquina local que tiene todo esos mismo

I del folders
C:\Commissioning Database\PDFReports\ quisiera poder chascar un botón en el acceso, y después pone al día todos esos folders.

So si en el directorio principal usted hace que \ \ servername \ datos \ CxFiles \ ATR \ \ \ servername \ datos \ CxFiles \ ATR \ \ \ servername \ datos \ CxFiles \ ATR \ File3.pdf

and del following
de File1.pdf
de File2.pdf
localmente yo el le1.pdf

I del have
C:\Commissioning Database\PDFReports\ATR\Fi solamente quiera copiar File2.pdf y File3.pdf al machine.

I básicamente apenas necesitar reflejar cualquier información está en el directorio principal en la máquina local.  ¿Puede haber una situación donde File1.pdf fue substituido por una más nueva versión y quisiera sobreescribir la copia local si hay una más nueva versión en el amo directory.

Do que necesito mirar una escritura de la hornada? ¿o puedo hacer esto en VBA? ¿o qué? la ayuda del

Any es grandemente appreciated.

Thanks class= > " claro " del
soluciones >Related class= archivos >Copy del " qRelatedChild " del class= del directorio " del title= " del href= " /OS/Microsoft_Operating_Systems/MS_DOS/Q_26330388.html " del

Respuesta : Copiar los archivos del directorio de fuente al directorio local usar VBA

probar esto los códigos

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

Sub los copyFiles ()
Amortiguar los myFolders (), srcFolder como secuencia, j, pdfFile como secuencia, destFolder como secuencia
destFolder = “C:\Commissioning Database\PDFReports\”
srcFolder = “\ \ servername \ datos \ CxFiles \”
myFolders = arsenal (“ATR”, “IIF”, “RIF”, “arranque”, “ConstructionsDwgs”, “FPT”, “espec.”, “FAT”)
Para j = LBound (myFolders) a UBound (myFolders)
    pdfFile = Dir (srcFolder y myFolders (j) y “\ *.pdf”)
    Mientras que pdfFile <> ""
        srcFolder y myFolders de FileCopy (j) y “\” y pdfFile, destFolder y myFolders (j) y “\” y pdfFile
        pdfFile = Dir
    Wend
Después
Submarino del extremo
Otras soluciones  
 
programming4us programming4us