Jump to content

Recommended Posts


Posted

Don't know if you can cause i'm just getting into this stuff

but I used a vbs script file to do it for me here is mine...

Just as a Note

I didn't check for the file folder existing when I copied the file cause I know the folder is ther already.. if the folder is not there it will not copy the file so you may need to add if exist to this...

XPCD is my environment added strings.. NOT Normally there

adshield.vbs

On Error Resume Next 
'Declare var's and objects
Dim WshS, fso, sysr, sysd, home, aup, cpf, pf, up, XPCD

Set WshS = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")

'Expand Environment
'Create const's to spare time and place
sysr = WshS.ExpandEnvironmentStrings("%SystemRoot%")
sysd = WshS.ExpandEnvironmentStrings("%Systemdrive%")
home = WshS.ExpandEnvironmentStrings("%Homepath%")
aup = WshS.ExpandEnvironmentStrings("%AllUsersProfile%")
cpf = WshS.ExpandEnvironmentStrings("%CommonProgramfiles%")
pf = WshS.ExpandEnvironmentStrings("%Programfiles%")
up = WshS.ExpandEnvironmentStrings("%UserProfile%")
XPCD = WshS.ExpandEnvironmentStrings("%XPCD%")

fso.CopyFolder XPCD & "\Adshield\Adshield", up & "\Application Data\Adshield" , true
fso.CopyFile XPCD & "\Adshield\license.txt", pf & "\AdShield\AdShield\license.txt" , true

Posted

i'm using it with no problem like this -

cmd.exe /c \xcopy /y %systemdrive%\install\spysweeper\install.dat \"%ProgramFiles%\Webroot\Spy Sweeper\\"

and its working like a charm, hope it helped you.

Posted

Another alternative is to use self extracting archives. I had a lot of stuff I wanted to copy so I created SFXs that automatically extract to the proper folders. Saves space too.

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...