پشتیبان گیری

[majidsoft]

سلام من برای گرفتن پشتیبان از این کد استفاده می کنم ولی کار نمی ده برای بازیابی هم ایراد می گیره

Public Const conString As String = "Data Source=majidsoft;Database=ajans; Integrated Security=TRUE;"
Public Sub BackupDatabase(ByVal ConnectionStr, ByVal DevicePath, ByVal FileName, ByVal Database)
Using Con As New SqlConnection(ConnectionStr)
If Con.State = ConnectionState.Closed Then Con.Open()
Dim Srvcon As New ServerConnection(Con)
Dim Srv As New Server(Srvcon)
Dim bdi As New BackupDeviceItem(FileName, DeviceType.File)
Dim Backup As New Backup
Try
With Backup
.Devices.Add(bdi)
.Action = BackupActionType.Database
.BackupSetDescription = "Backup DataBase"
.BackupSetName = "majidsoft2321"
.Database = Database
.LogTruncation = BackupTruncateLogType.Truncate
.SqlBackup(Srv)
End With
MsgBox("ok")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Using
End Sub
Public Sub RestoreDataBase(ByVal ConnectionStr, ByVal FileName, ByVal Database)
Using Con As New SqlConnection(ConnectionStr)
If Con.State = ConnectionState.Closed Then Con.Open()
Dim Srvcon As New ServerConnection(Con)
Dim Srv As New Server(Srvcon)
Dim deviceItem = New BackupDeviceItem(FileName, DeviceType.File)
Dim Restore As New Restore
With Restore
.Devices.Add(deviceItem)
.Action = RestoreActionType.Database
.Database = Database
.SqlRestore(Srv)
End With
End Using
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
BackupDatabase(conString, "e:\", "qq", "ajans")
End Sub
End Class

برای پشتیبان گیری در اون مسیر چیزی کپی نمی کنه ولی پیام موفقیت می ده
با تشکر