Copy fils to multiple folders 1

[into]

Haw can i go about moving all files in a folder to all folders in an another folder?


copy c:\folder\*.* c:\directory

result

c:\
Folder
File1.txt
File2.log
Directory
Folder1
File1.txt
File2.log
Folder2
File1.txt
File2.log

Hope i'm making myself understood.


//Torfi

 

[mrmovie]

Set objFT = FSO.GetFOlder("c:\directory")
For Each aFolder In objFT.SubFolders
FSO.CopyFolder "c:\test\*.*", "c:\directory\" & aFolder.Name, True
Next

i am sure you could tidy up "c:\directory\" & aFolder.Name and you might need to work on .CopyFolder 1st param