Answer Posted / 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

Explain Default cursor Type and LockEdit type in DAO?

1098

---

Explain about creating VB applications in excel?

1114

---

How would you access objects created in ActiveX Exe and ActiveX Dll

2013

---

How would you create properties in ActiveX Control?

1898

---

What are the Internet tools available in VB6.0?

2905

---

How would you map properties to controls by using ActiveX Control Interface Wizard?

1912

---

How do I dial a phone number without using the MSCOMM VBX?

2039

---

How can you save and Get data from Clipboard/ Recordset object consists what?

998

---

What is script control?

1054

---

what are the Differences between Recordset and Resultsets?

2523

---

Write the steps in Creating ActiveX Dll and Active Exe?

2073

---

Is it posible to Create Tables Through Querydef?

2083

---

How would you run your ActiveX Document Dll?

1905

---

What is "Reserved Error -1209"?

2086

---

which method used to move a recordset pointer in nth position in DAG?

2054

---