Software VB Scripting

[dexyweescot]

Hi,

Im trying to create a backup folder from a network drive to my local machine every nite. I have a batch file deleting the local folder then this script to create and copy the network drive over.

I have used scheduled tasks the start each process. but im getting an error on my script. Can someone have a look and maybe tell me where im going wrong. here is my error and scripts.

 

[Purity]

It doesn't require the ; on line 12, 13, and 15

 

[VectorZ]

It doesn't require the ; on line 12, 13, and 15

Yep, what Purity said ^^^

Me thinks you're mixing up your VBScript with your JScript

 

[dexyweescot]

cheers guys but its got a new error at line 16 character 1 now...

 

[VectorZ]

Can you post the script again in case something else has crept in there?

 

[dexyweescot]

here ya go mate,

 

[daveleebond]

add 'dim fs' to top

 

[VectorZ]

Cant really see anything wrong with it. I've typed it up using my own paths and it's running fine.

Going further from above, remove your dim lines at the top of the scripts and replace with:

You don't have permission to view the code content. Log in or register now.

 

[Purity]

Take the , overwritefiles off the end as it is not needed. Default is true

 

[dexyweescot]

here is what i have now

dim fs
option explicit
dim originalLocation, backupLocation, createFSO, createFolder, fs
const overWriteFiles = true

'This is the path to the folder you want backed up
originalLocation = "T:\"

'This is the path to the location that you will be backing those files up to.
backupLocation = "C:\Documents and Settings\Cam2.DUCTVENT\Desktop\CAM Local test"

'Create the backup folders
Set createFSO = CreateObject("Scripting.FileSystemObject")
set createFolder = createFSO.CreateFolder(backupLocation)

set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFolder originalLocation, backupLocation, overWriteFiles
msgbox("A full backup of " & originalLocation & " completed on " & Now())

but getting this now lol

 

[Purity]

Option Explicit needs to be first in the file, dims underneath

You don't need to dim fs twice

 

[VectorZ]

here is what i have now



but getting this now lol

View attachment 77185

You've duplicated dim fs at top of script. Remove this line so option explicit is at the top, and remove overWriteFiles as purity suggested

 

[dexyweescot]

still getting line 16 character 1 error though...arg!! lol

option explicit
dim originalLocation, backupLocation, createFSO, createFolder, fs
const overWriteFiles = true

'This is the path to the folder you want backed up
originalLocation = "T:\"

'This is the path to the location that you will be backing those files up to.
backupLocation = "C:\Documents and Settings\Cam2.DUCTVENT\Desktop\CAM Local test"

'Create the backup folders
Set createFSO = CreateObject("Scripting.FileSystemObject")
set createFolder = createFSO.CreateFolder(backupLocation)

set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFolder originalLocation, backupLocation
msgbox("A full backup of " & originalLocation & " completed on " & Now())

 

[dexyweescot]

it just doesnt want to copy the files. if i take this line out it creates the folder fine

 

[Purity]

Here you go:

You don't have permission to view the code content. Log in or register now.

 

[Purity]

Whoops you'll need to change the backuplocation back to "C:\Documents and Settings\Cam2.DUCTVENT\Desktop\CAM Local test"

 

[oneman]

Also suggest you use notepad++ its free and it does basic formatting and syntax checking for vbscript.

 

[Purity]

@dexyweescot

Did this work ok?

 

[dexyweescot]

@dexyweescot

Did this work ok?

Purity u are the man