Questione : Copiare le lime dall'indice di fonte all'indice locale Using VBA

Nel mio progetto, ho un calcolatore matrice che invierà le lime a vari dispositivi di piegatura in un indice di progetto. così l'indice comune potrebbe \ \ servername \ dati \ CxFiles
del be

là sarà i seguenti dispositivi di piegatura che avrei voluto per copiare \ \ servername \ dati \ \ \ servername \ dati \ \ \ servername \ dati \ \ \ servername \ dati \ \ \ servername \ dati \ \ \ servername \ dati \ \ \ servername \ dati \ \ \ servername \ dati \ CxFiles \ FAT


ATR
IIF
RIF
Startup
ConstructionDwgs
FPT
Spec
/>There è una struttura di lima standard sulla macchina locale che ha tutto quei lo stesso

I del folders
C:\Commissioning Database\PDFReports\ vorrebbe potere scattare un tasto nell'accesso ed allora aggiorna tutti quei folders.

So se nell'indice matrice fate \ \ servername \ dati \ CxFiles \ ATR \ \ \ servername \ dati \ CxFiles \ ATR \ \ \ servername \ dati \ CxFiles \ ATR \ File3.pdf

and del following
volere di File1.pdf
di File2.pdf
localmente io le1.pdf

I del have
C:\Commissioning Database\PDFReports\ATR\Fi soltanto copiare basicamente File2.pdf e File3.pdf al machine.

I dovere appena rispecchiarsi che cosa informazioni sono nell'indice matrice sulla macchina locale.  Ci può essere una situazione dove File1.pdf è stato sostituito con una più nuova versione e vorrei scrivere sopra la copia locale se ci è una più nuova versione sul padrone directory.

Do che devo esaminare uno scritto in lotti? o posso fare questo in VBA? o che cosa? l'aiuto del

Any è notevolmente appreciated.

Thanks class= > " libero " del
soluzioni >Related class= lime >Copy " del qRelatedChild " " del class= dall'indice " del title= " del href= " /OS/Microsoft_Operating_Systems/MS_DOS/Q_26330388.html di

Risposta : Copiare le lime dall'indice di fonte all'indice locale Using VBA

provare questo codici

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

Sub i copyFiles ()
Oscurare i myFolders (), lo srcFolder come stringa, J, pdfFile come stringa, destFolder come stringa
destFolder = “C:\Commissioning Database\PDFReports\„
srcFolder = “\ \ servername \ dati \ CxFiles \„
myFolders = allineamento (“ATR„, “IIF„, “RIF„, “partenza„, “ConstructionsDwgs„, “FPT„, “spec.„, “FAT„)
Per J = LBound (myFolders) a UBound (myFolders)
    pdfFile = Dir (srcFolder & myFolders (j) & “\ *.pdf„)
    Mentre pdfFile <> ""
        srcFolder & myFolders di FileCopy (j) & “\„ & pdfFile, destFolder & myFolders (j) & “\„ & pdfFile
        pdfFile = Dir
    Wend
Dopo
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us