مساعده فى عمل نسخه احتياطيه - نسخة قابلة للطباعة

PHP كود :
Imports System.Data.SqlClient
Imports System.IO

Public Class Form1
    ' مسار المجلد لحفظ النسخ الاحتياطية
    Private backupFolder As String = "C:\BACKUP"

    ' دالة لعمل نسخة احتياطية
    Private Sub BackupDatabase(databaseName As String)
        Try
            ' تحقق من وجود المجلد، وإذا لم يكن موجودًا، يتم إنشاؤه
            If Not Directory.Exists(backupFolder) Then
                Directory.CreateDirectory(backupFolder)
            End If

            ' مسار حفظ النسخة الاحتياطية
            Dim backupFile As String = Path.Combine(backupFolder, $"{databaseName}_{DateTime.Now.ToString("yyyyMMdd_HHmmss")}.bak")

            ' استعلام النسخة الاحتياطية
            Dim backupQuery As String = $"BACKUP DATABASE {databaseName} TO DISK = '{backupFile}'"

            ' الاتصال بقاعدة البيانات
            Using connection As New SqlConnection("Server=.;Database=master;Integrated Security=True;")
                connection.Open()

                ' تنفيذ استعلام النسخة الاحتياطية
                Using command As New SqlCommand(backupQuery, connection)
                    command.ExecuteNonQuery()
                End Using

                connection.Close()
            End Using

            MessageBox.Show($"Backup of {databaseName} completed successfully.", "Backup", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch ex As Exception
            MessageBox.Show($"Error during backup of {databaseName}: {ex.Message}", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

    ' زر النسخ الاحتياطي
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' عمل نسخة احتياطية لكل قاعدة بيانات
        BackupDatabase("DB1")
        BackupDatabase("DB2")
        BackupDatabase("DB3")
    End Sub
End Class