Vraag : De Dossiers van het exemplaar van BronFolder aan Lokale Folder die VBA gebruiken

In mijn project, heb ik één hoofdcomputer die dossiers aan verscheidene verschillende omslagen in een projectfolder zal posten. zo zou de gemeenschappelijke folder be

\ \ servername \- gegevens \ CxFiles
daar zal zijn de volgende omslagen kunnen die ik from

\ \ servername \- gegevens\ CxFiles \ ATR
\ \ servername \- gegevens\ CxFiles \ IIF
\ \ servername \- gegevens\ CxFiles \ RIF
\ \ servername \- gegevens\ CxFiles \ Startup
\ \ servername \- gegevens\ CxFiles \ ConstructionDwgs
\ \ servername \- gegevens\ CxFiles \ FPT
\ \ servername \- gegevens\ CxFiles \ Spec
\ \ servername \- gegevens zou willen kopiëren \ CxFiles \ FAT

There is een standaarddossierstructuur op de lokale machine die elk van die zelfde folders
C:\Commissioning Database\PDFReports\

I zou willen heeft een knoop in Toegang kunnen klikken, en dan elk van die folders.

So bijwerken als in de hoofdfolder u slechts de following
\ \ servername \- gegevens\ CxFiles \ ATR \ File1.pdf
\ \ servername \- gegevens\ CxFiles \ ATR \ File2.pdf
\ \ servername \- gegevens \ CxFiles \ ATR \ File3.pdf

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

I hebt willen kopiëren File2.pdf en File3.pdf aan de lokale/>I fundamenteel enkel behoefte machine.

Do I behoefte directory.


Any is zeer appreciated.

Thanks
Related Oplossingen: van het Copy slechts van directory

Antwoord : De Dossiers van het exemplaar van BronFolder aan Lokale Folder die VBA gebruiken

test dit codeert

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

Sub copyFiles ()
Schemerige myFolders (), srcFolder als Koord, j, pdfFile als Koord, destFolder als Koord
destFolder = „C:\Commissioning Database\PDFReports\“
srcFolder = „\ \ servername \- gegevens \ CxFiles \“
myFolders = Serie („ATR“, „IIF“, „RIF“, „Opstarten“, „ConstructionsDwgs“, „FPT“, „Specificatie“, „VET“)
Voor j = LBound (myFolders) Aan UBound (myFolders)
    pdfFile = Dir (srcFolder & myFolders (j) & „\ *.pdf“)
    Terwijl pdfFile <> ""
        FileCopy srcFolder & myFolders (j) & „\“ & pdfFile, destFolder & myFolders (j) & „\“ & pdfFile
        pdfFile = Dir
    Wend
Daarna
Sub van het eind
Andere oplossingen  
 
programming4us programming4us