Answer / haiipl25

Open a project which have one text box name as 'txtbackup' &
one command button name as 'cmdBackup'. After that, put the
following code for Back up the file which is present in that
current folder with the name sample.mdb



Dim obj As Object
Dim path As String
Dim j As Integer
Dim b As String
Dim a(100) As String
Dim i As Integer


If txtbackup <> "" Then
'******************************************
Dim c, c1 As String
i = 0
c = txtbackup.Text
For j = 1 To Len(c)
c1 = Mid(c, j, 1)
If c1 <> "\" Then
a(i) = a(i) & c1
Else
i = i + 1
End If
Next
'*******************************************

Set obj = CreateObject("Scripting.FileSystemObject")
path = txtbackup.Text
b = a(0)

'**** Folder Creation ****

Dim fso As New FileSystemObject
For j = 1 To i
b = b & "\" & a(j)
If Not fso.FolderExists(b) Then
obj.CreateFolder (b)
End If
Next

'**** File Creation ****

If Not fso.FileExists(path & "\sample_" & Format$(Date,
"dd_mm_yy") & ".mdb") Then
obj.CopyFile "" & App.path & "\sample.mdb", "" & path &
"\sample_" & Format$(Date, "dd_mm_yy") & ".mdb"
MsgBox "Data Base Successfuly Back Up in Loction :" & path
& " ", vbInformation, "Back Up"
Else
If MsgBox("Data Base is already exists. Do u want to
replace it?", vbQuestion + vbYesNo, "Confirmation") = vbYes Then
obj.CopyFile "" & App.path & "\sample.mdb", "" & path &
"\sample_" & Format$(Date, "dd_mm_yy") & ".mdb"
MsgBox "Data Base Successfuly Back Up in Loction :" & path
& " ", vbInformation, "Back Up"
End If
End If


Else
MsgBox "Enter the Destination Path.....", vbExclamation

End If

txtbackup.Text = ""
txtbackup.SetFocus
End Sub

How do I tell when an application executed using the SHELL command is finished?

0 Answers  

---

What is the tool used to configure the port range and protocols for DCOM communications?

1 Answers   IBM,

---

How many no of controls are there in form?

3 Answers   Satyam,

---

What is the maximum size of form to hold the controls?

3 Answers   Tech Mahindra,

---

What is the use of debug Window?

1 Answers  

---

To find the current recordposition in data control.

0 Answers  

---

Which Property is used to compress a image in image control?

1 Answers  

---

What are the record set types?

1 Answers  

---

how to validate the pop up window Example :assume there is an webpage in that webpage we had a button to browser or file to upload . how to validate this button if we click on that botton window should appear else back to the page i need in VB Script Code since i am using QTP for testing

1 Answers   Sapient,

---

How do you clear the current selected item from a drop down combo box?

2 Answers  

---

WHAT IS DIFFERENCE BETWEEN Message box and image box

13 Answers  

---

How do I speed up control property access?

0 Answers  

---