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 use of Visual Basic Document file?

2876

---

How can you filter out specific type of file using file system controls?

2219

---

What is the use of Tabledef?

2072

---

What is ado in vb?

1009

---

which property is used to change to some value to access a identity column in datacontrols?

1880

---

When/Why should I use Option Explicit?

1524

---

How can I call a 'hidden' DOS program from VB?

1527

---

Why doesn't "my string" & Chr$(13) do what I want?

1578

---

What is the use of NEW Keyword? Explain.

2026

---

Which method is used to write context Into file?

2089

---

what are the Types of LockEdits in RDO?

2275

---

what are the Differenct Types of Procedures in VB?

1968

---

What is meant by Establish Connection in RDO? 74.1s it possible to Access BackEnd procedures? Explain.

1551

---

How should dates be implemented so they work with other language and country formats?

1471

---

What is the use of Scalewidth and ScaleHeight Proeperty?

2043

---