Folder copy script assistance

I have this script (attached) that should remove a folder called VPNClient4x and associated contents and replace it by copying over a folder called VPNClient5x and associated contents.  For some reason it isn't copying over the folder as it should.  Could someone please point me in the right direction? Thanks.
Dim objShell, RegLocate
 
'''Create Message Box Dialog
 
msgbox "Beginning the Zone Labs uninstall and VPN Client 5 install", 0, "Zone Labs Uninstall"
 
Set objShell = WScript.CreateObject("WScript.Shell")
 
'''Close Specific Applications
 
On error resume next
 
objShell.run("tskill iclient /a"), 0, True
 
 
objShell.run("tskill vsmon /a"), 0, True
 
'''Zone Labs Uninstall
 
objShell.run("msiexec.exe /X{45295FCF-B5D0-415E-8348-5C60BEE2A903} INSTALLPASSWORD=dakota1 REBOOTPROMPTWITHSILENT=NO REBOOT=R /qb!"), 0, True
 
'''Delete 2 Folders VPNClient4x and Zone Labs)
Set objFSO = CreateObject ("Scripting.FileSystemObject")
objFSO.DeleteFolder("C:\VPNClient4x")
objFSO.DeleteFolder("C:\Program Files\Zone Labs")
 
'''Copy New VPN Client to Laptop
Const OverWriteFiles = True
objFSO.CopyFolder "VPNClient5x" , "C:\VPNClient5x" , OverWriteFiles
 
'''msgbox "The Uninstall Process Is Complete Please press OK to start installing the VPN Client", 0, "Completed"
 
'''Install VPN 5
objShell.run("c:\VPNClient5x\vpnclient_setup.exe /passive"), 0, True
 
WScript.Quit

Open in new window

fmcsa004Asked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

__Vortex__Commented:
You will need to enter the full path of the source:

objFSO.CopyFolder "c:\SourceVPNClient5x" , "C:\VPNClient5x" , Overwrite

V
0
fmcsa004Author Commented:
Shouldn't it accept the default of the script location for source path?  i need it to copy from the same directory source location as the script.
0
__Vortex__Commented:
You are correct, the folder path does default to wherever the script is.

The script runs for me. i had to comment out the Zone Labs Uninstall command, which was giving me problems.

Do you have any debuggers installed, Visual Studio 2005/2008?

The following command allows you to debug the script:
wscript.exe //d //x C:\test.vbs
Dim objShell, RegLocate
 
'''Create Message Box Dialog
 
msgbox "Beginning the Zone Labs uninstall and VPN Client 5 install", 0, "Zone Labs Uninstall"
 
Set objShell = WScript.CreateObject("WScript.Shell")
 
'''Close Specific Applications
 
 on error resume next
 
objShell.run("tskill iclient /a"), 0, True
objShell.run("tskill vsmon /a"), 0, True
 
'''Zone Labs Uninstall
 
'objShell.run("msiexec.exe /X{45295FCF-B5D0-415E-8348-5C60BEE2A903} INSTALLPASSWORD=dakota1 REBOOTPROMPTWITHSILENT=NO REBOOT=R /qb!"), 0, True
 
'''Delete 2 Folders VPNClient4x and Zone Labs)
Set objFSO = CreateObject ("Scripting.FileSystemObject")
objFSO.DeleteFolder("C:\VPNClient4x")
objFSO.DeleteFolder("C:\Program Files\Zone Labs")
 
'''Copy New VPN Client to Laptop
Const OverWriteFiles = True
objFSO.CopyFolder "VPNClient5x" , "C:\VPNClient5x" , OverWriteFiles
 
msgbox "The Uninstall Process Is Complete Please press OK to start installing the VPN Client", 0, "Completed"
 
'''Install VPN 5
objShell.run("c:\VPNClient5x\vpnclient_setup.exe /passive"), 0, True
 
WScript.Quit

Open in new window

0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
fmcsa004Author Commented:
Thanks V.  We were finally able to make it work by moving the copy code further up in the script.  ie:

msgbox "Beginning the Zone Labs uninstall and VPN Client 5 install", 0, "Zone Labs Uninstall"

On error resume next

'''Delete Folder VPNClient4x
Set objFSO = CreateObject ("Scripting.FileSystemObject")
objFSO.DeleteFolder("C:\VPNClient4x")

Set objFSO = CreateObject("Scripting.FileSystemObject")
 
'objFSO.CopyFile strFileOrigination, strFileDestination, OverwriteExisting

'''Copy New VPN Client to Laptop
Const OverWriteFiles = True
objFSO.CopyFolder "VPNClient5x" , "C:\VPNClient5x" , OverWriteFiles

'''Close Specific Applications

Set objShell = WScript.CreateObject("WScript.Shell")

objShell.run("tskill iclient /a"), 0, True


objShell.run("tskill vsmon /a"), 0, True
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
VB Script

From novice to tech pro — start learning today.