Ahhh...see, you need to be more specific!
Okay...but you still should download that HELP file.
Oh, and this is called "recursion":
Sub CopyAll( fromF, toFName)
fs.CopyFile fromF.Path & "\*" , toFName ' copy all files in one folder!
' then copy files in any subfolder of this one:
Set subfs = fromF.SubFolders
For Each subf In subfs
CopyAll subf, toFName ' recursion! call ourself for all subfolders
toFolderName = "c:\some\folder\" ' *MUST* end in backslash!
path = drive & ":\DCIM\"
set folder = fs.GetFolder(path)
CopyAll path, toFolderName