fso.CopyFile inklusive subfolders

Hej,

Har nedstående script, som virker ok. Men ville gerne have min undermapper kopieret med over. F.eks.
c:\pdf
c:\pdf\files1
c:\pdf\files2

Kan man det ?
vh thjoe


On Error Resume next
Set fso = CreateObject("Scripting.FileSystemObject")
dato = Replace(Date(),"-","")
If Not fso.FolderExists("c:\arbejde\scripts\" & dato) then
fso.createfolder "c:\arbejde\scripts\" & dato
End If
fso.CopyFile "C:\pdf\*.*" , "c:\arbejde\scripts\" & dato