file copy help that has path not found error

I have all the necessary variables declared that are used in this script. I get path not found error on the line:
oFSO.CopyFile ("*.*"), (DestProgWin7), True
I have tried without parenthesis to no avail for source and path. The script is placed in the path that contains all the files to be copied over. Any help please?

dim oFSO,oShell
dim DestProgXP,DestProgWin7
dim DestStartXP,DestStartWin7
set oFSO = CreateObject ("Scripting.FileSystemObject")
set oShell = CreateObject ("Wscript.Shell")
DestProgXP = ("C:\Program Files\WinZip\")
DestProgWin7 = ("C:\Program Files (x86)\WinZip\")
DestStartXP = ("C:\Documents and Settings\All Users\Start Menu\Programs\WinZip\")
DestStartWin7 = ("C:\Users\All Users\Microsoft\Windows\Start Menu\Programs\WinZip\")
if oFSO.FolderExists("C:\Documents and Settings") Then
oFSO.CopyFile ("*.*"), (DestProgXP), True
oFSO.CopyFile ("*.CHM"), (DestStartXP), True
Else if oFSO.FolderExists("C:\Users") Then
oFSO.CopyFile ("*.*"), (DestProgWin7), True
oFSO.CopyFile ("*.CHM"), (DestStartWin7), True
Else
MsgBox ("This program is only intended for Windows XP x32 or Windows 7 x64.")
End if
End if

did you try
 
if oFSO.FolderExists("C:\Documents and Settings") Then
oFSO.CopyFile ("C:\Documents and Settings\*.*"), (DestProgXP), True
oFSO.CopyFile ("C:\Documents and Settings\*.CHM"), (DestStartXP), True
Else if oFSO.FolderExists("C:\Users") Then
oFSO.CopyFile ("C:\Users\*.*"), (DestProgWin7), True
oFSO.CopyFile ("C:\Users\*.CHM"), (DestStartWin7), True
Else

So you are saying that instead of assuming the default path where the .vbs resides and copying all files from there, provide the entire path of files to be copied from?
What I am trying is this: if c:\documents and settings folder exists, then copy all files from current path to c:\documents and settings\all users\start menu\programs\WinZip, otherwise copy all files from current path to C:\Users\all users\start menu\programs\WinZip. The modification you have provided is copying stuff from the conditional path. Thanks for your great help. ciao.