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
| Is This Answer Correct ? | 10 Yes | 0 No |
Post New Answer View All Answers
DHTML Is used for what?
What are the properties of datacontrol?
How many File System Controls are there Explain?
What is the Windows API?
What language does visual basic use?
What is ActiveX Dll and ActiveX Exe?
What is the use of ActiveX Documents?
What is script control?
i want to retrive data from one spead sheet to another UI (workbook). control will search cell by cell for each row and load the data in another workbook(UI).
How to load and unload child forms.
How would you create properties by using class Builder Wizard?
Why can't I use an index with my VB accessed database?
What is the use of progress Bar Control?
How would you attach pictures in column headers of List View Control?
What is the use of NEW Keyword? Explain.
