CopyFolder will do it all for you in one operation:
fromFolderName = "E:"
toFolderName = "C:\someplace\saveimages"
Set FSO = CreateObject("Scripting.FileSystemObject")
' copy all files and folders:
Call FSO.CopyFolder( fromFolderName & "\*", toFolderName & "\", overwriteflag )
Notice that you need the \* on the end of the FROM and the \ on the end of the TO.
If the last argument is true, CopyFolder will overwrite any existing files and folders. To avoid that, be sure to use FALSE (false in JS code) instead.
Do you not have a copy of the Microsoft Scripting Help file on your machine? If not, you *REALLY* need to download it. MS keeps moving it from time to time, but at least as of today it is here:
Download it! Make a link to it on your desktop. Use it every day.