Variables in CopyFolder Function

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Variables in CopyFolder Function

Logged in as: Guest

arrSession:exec spGetSession 2,2,613

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Variables in CopyFolder Function
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Variables in CopyFolder Function - 4/18/2002 1:24:07 PM

coleex

Posts: 1
Score: 0
Joined: 12/5/2001
From: USA
Status: offline

Hello

Iam using this code below to install patches for a program to client machines. The problem I run into is that the COPYFOLDER function doesnt seem to like variables. It errors out saying that the path is not found. It works if I use absolute paths, but this will not work for the endusers since they can run the program from the C: or D: drive. It is necessary to determine the drive the app is installed on then use it to copy the patch. I tried the CopyFile function with no success. Any ideas?

SUB PROGHOME

Call ReportFileStatus("c:\prog\v3.2.2\syslibs\vcf15.ocx")

If filelive = "yes" then
proghome = "c:\prog"
Else
proghome = "d:\prog"
End If

END SUB

Call ReportFileStatus (summithome & "\V3.2.2\client\sovb\docs\PROG.V3.2.2.2.InstallNotes.html")
patchpath = "\\serverop1tmp\prog\v3.2.2\Patches\V3.2.2.2"

If filelive = "yes" then
file.WriteLine("Patch SOVB.V3.2.2.2 has been previously installed")
Else
fso.CopyFolder patchpath & "\client\prog\docs\*", proghome & "\V3.2.2\client\sovb\docs\"
fso.CopyFolder patchpath & "\client\prog\exe\*", proghome & "\V3.2.2\client\sovb\exe\"
file.WriteLine("Patch PROG.V3.2.2.1 has been installed")
End if