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

Default cursor Type and LockEdit type in DAO?

1 Answers  

---

How would you view html code in Active Server Pages?

1 Answers  

---

What is the maximum no. of forms can include in one project (vb project)?

3 Answers   Satyam,

---

Advantage of ActiveX Dll over Active Exe.

0 Answers  

---

what is differece b/w Module and class Modules in vb6? thanks

4 Answers   Ask Techsys, TCS,

---

how to use unicode data in vb6 regarding to telugu language, my output is in only telugu language

0 Answers  

---

What are properties available in Clip Board?

1 Answers  

---

Hai! , i make a project for browsing center using vb6.0 , at the time of running below mentioned error is occured so please help me for solve this problem. Error : Can't find project or library

4 Answers   Wipro,

---

What is the use of debug Window?

0 Answers  

---

Types of LockEdits in RDO.

0 Answers  

---

Where will we give the option explicit keyword and for what?

1 Answers  

---

what are the Types of DBCombo boxes?

0 Answers  

---