Copier Helt BiB?

http://www.vb-helper.com/howto_copy_directory_hierarchy.html

Alternativt er der jo altid FSO - FileSystemObject

Hvorfor virker denne her så ikke?

Dim McauFS As FileSystemObject
Set McauFS = CreateObject("Scripting.FileSystemObject")

Dim FileSource As String
Dim FileDestination As String
   
FileSource = (MCAUSourceDrive & ":\MCAU\DATA\WMF FILES")
FileDestination = ("C:\MCAU\DATA\WMF FILES")
   
mcaufs.CopyFolder((FileSource as String),(FileDestination as String))

AHA!

McauFS.CopyFolder (FileSource), ("C:\MCAU\DATA\WMF FILES")