Simple backup vbs code - Stopped working

[usmcratman]

For the past few years I have used the following vbs script to perform a simple archive on files. After several updates earlier in the year, they quit working. Gives me the error "can't create object 'Scripting.FileSystemObject', error code: 800A01AD
I really havent had time to seriously research the issue until today.

The most prominent updates on my WinXP Pro system are SP3, "Windows Power Shell 1.0", and all the .net framework updates. I think that one of them may be the culprit. Is there a better way to write this simple code, or does anyone know what may be causing the error.

[!]Dim fso
set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile "C:\Data Files\Databases\Case Management.mdb", "L:\DB Backups\Case Management (" & Replace(FormatDateTime(Date(),2),"/","-")  & " " & Replace(FormatDateTime(Time(),4),":","") & ").bak"
set fso = nothing[/!]

Thank you,
JR


Semper Fi

 

[Andrzejek]

Have you tried VB native

FileCopy [i]source, destination[/i]

Have fun.

---- Andy

 

[TysonLPrice]

You can try reinstalling Windows Script 5.x. I don't think it would hurt to try.

http://www.microsoft.com/downloads/...43-7e4b-4622-86eb-95a22b832caa&displaylang=en