Kopiera foldr och subfolder

Jag har problem med en kod för att kopiera folder och subfolder.

Dim fldr As folder 
GammalMapp = frMultiLanguage.StatusBar1.Panels(1).Text 
 'kopiera undermapparna för backup 
Set fldr = fso.GetFolder(GammalMapp) 
For Each folder In fldr.SubFolders 
   'MsgBox Folder.Name 
    folder.Copy GammalMappOLD 
    frMultiLanguage.info.Caption = frMultiLanguage.info.Caption & folder.Name & ", " 
Next

Vad som händer är följande.
Via msgboxen så kan jag se att foldernamnen stämmer, men den kopiera bara undermapparna till dem.
Jag har försökt att skriva en for sling, men kommer bara fel hela tiden.
Några tips?
:q