Scripts back up

[Sathiya]

Hi Friends
i want back up of my scripts in qc and want to save in local pc.
here is the code for copying between folders in the local pc

Code:

dim filesys, newfolder, newfolderpath
Dim dateformat
dateformat = replace(now, "/", "-")
dateformat = replace(dateformat, ":", "-")
msgbox dateformat
newfolderpath = "D:\Sathiya\Backup\"&dateformat
' dataformat is just to identify on which date back up is taken.
set filesys=CreateObject("Scripting.FileSystemObject")
If filesys.FolderExists("D:\sathiya\BNFS\sathiya\Qtp practice\comparing two excel sheet\Comapring_two_excel_sheets" ) Then
Set newfolder = filesys.CreateFolder(newfolderpath)
filesys.CopyFolder "D:\sathiya\BNFS\sathiya\Qtp practice\comparing two excel sheet\Comapring_two_excel_sheets", newfolderpath
End If

Kindly helps in this regard