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

Can a VB application be an OLE server?

0 Answers  

---

what are the Differences between ActiveX Exe and Dll?

2 Answers  

---

What is the diff between RDO and ADO?

3 Answers  

---

What are the different cursor types that can we create using ADO Recordset? Difference between these cursor types?

2 Answers  

---

WHAT IS DIFFERENCE BETWEEN Message box and image box

13 Answers  

---

Why do I get "object not an array" when I try reference the fields of a global object variable which I have set to a table?

0 Answers  

---

To validate a range of values for a property whenever the property values changes,which type of property procedure you use?

0 Answers  

---

How would you find out the value property in Slider Bar Control?

1 Answers  

---

what is the difference between procedures,attributes and functions?

1 Answers   Microsoft, Patni,

---

How can we call Stored procedure of Back End in RDO and ADO ?

1 Answers  

---

what are the Types of cursors in RDO?

0 Answers  

---

what are Collections?

1 Answers  

---