Bestanden meekopiëren met nieuwe map.

[Fransenloes]

Goedendag,

Ik heb een goed lopende macro, die een map aanmaakt van een blad en daar de naam van D1 meegeeft.

Nu zou ik graag direct alle files mee kopiëren, die in G:\files staan.

Misschien heeft iemand een oplossing voor mij?

Alvast bedankt voor de hulp.

'de files in G:\files moeten mee gekopieerd worden

    strDir = "G:\auto\" & ActiveSheet.Range("D1")
   
      If Dir(strDir, vbDirectory) = "" Then
      MkDir strDir
        
       End If

 

[snb]

Gebruik 'copyfolder' uit de scripting bibliotheek.

 

[Fransenloes]

Gebruik 'copyfolder' uit de scripting bibliotheek.

Bedankt voor je reactie.
Dit had ik op zich al geprobeerd, maar ik loop vast op de map die gemaakt word, omdat deze niet vast staat.
De destination file staat niet vast, maar is variabel.

Misschien heb je nog een idee?

 

[edmoor]

Doe dat zo:

objFSO.copyFolder "C:\Path\to\source\folder", strDir

 

[Fransenloes]

Doe dat zo:

objFSO.copyFolder "C:\Path\to\source\folder", strDir

Dit is gelukt,
Dank jullie wel.

 

[snb]

En nu nog even leren de goede reaktieknop te gebruiken:

Zie: https://www.helpmij.nl/forum/announcement.php?f=348