Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Scripts back up
#1
Not Solved
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
Reply


Possibly Related Threads…
Thread Author Replies Views Last Post
  Need Excel template for mapping manual scripts to Automation scripts. ACCBAJPA 0 2,954 09-19-2013, 03:02 PM
Last Post: ACCBAJPA
  BACK GROUND COLOUR OF A PARTICULAR AREA IN A SEARCH WINDOW remya 1 2,175 11-22-2010, 03:35 PM
Last Post: Saket
  QTP Not Playing Back live to learn 6 4,214 11-23-2009, 01:55 AM
Last Post: live to learn
Question navigating back and forth between environment while recording scripts testingfool 0 1,600 10-28-2008, 03:29 AM
Last Post: testingfool
  Checking back ground color newqtp 0 1,905 02-12-2008, 11:09 PM
Last Post: newqtp

Forum Jump:


Users browsing this thread: 1 Guest(s)