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

what is the control used to call a windows application.

1993

---

How do you avoid the "Invalid use of null" error when reading null values from a database?

1695

---

___,__,___ are the type of combo box?

1605

---

What are the Differenct Types of Instancing Property in ActiveX Dll and Exe?

2110

---

Is it possible to change menu runtime using API? If yes Specify the function names?

1999

---

How would you navigate between one document to another document in Internet Explorer ?

2255

---

How to get freefile location in memory?

2663

---

Is it possible to call oracle database through ADO control or Object?

1829

---

What are the uses of List View Control?

1916

---

How would you add elements and pictures to listitems in listview control?

2045

---

How would you create your application in DHTML?

1904

---

Explain the types of Views in Listview Control.

2822

---

Difference between ActiveX Exe and Dll.

1947

---

which property of menu cannot be set at run time.

1994

---

Data Control missing from toolbox when I use VB under NT3.5. Why?

1475

---