[السيد الجوهري]

كود :

Sub blank(ByVal str As String)

      If cmbserver.Text = "" Or cmbdatabase.Text = "" Then
          MsgBox("Server Name & Database Blank Field")
          Exit Sub
      Else
          If str = "backup" Then
              SaveFileDialog1.FileName = cmbdatabase.Text
              SaveFileDialog1.ShowDialog()
              Timer1.Enabled = True
              ProgressBar1.Visible = True
              Dim s As String
              s = SaveFileDialog1.FileName

             
              query("backup database " & cmbdatabase.Text & " to disk='" & s & "'")


                  '=================

              ElseIf str = "restore" Then
                  OpenFileDialog1.ShowDialog()
                  Timer1.Enabled = True
                  ProgressBar1.Visible = True
                  query("RESTORE DATABASE " & cmbdatabase.Text & " FROM disk='" & OpenFileDialog1.FileName & "'")

              End If
          End If
  End Sub

هذا الكود مسئول عن اخذ نسخة احتياطية  كيف اكتب التاريخ بجوار اسم قاعدة البيانات التي تم نسخها احتياطيا



   

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

أخي الكريم  " السيد الجوهري "

ريثما تجد الحل الأنسب إن شاء الله .. هذا ملف حاول الإقتباس منه لعلّه يفيد و لو بالجزء اليسير إن شاء الله

تحياتي

[سعود]

كتبت كود بسيط آمل ان تجد به المطلوب

PHP كود :

 Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        Dim sfd As New SaveFileDialog
        If sfd.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim dn As String = IO.Path.GetDirectoryName(sfd.FileName)
            Dim fn As String = (IO.Path.GetFileNameWithoutExtension(sfd.FileName))
            Dim ex As String = IO.Path.GetExtension(sfd.FileName)
            Dim all As String = dn & "\" & fn & "_" & Now.ToShortDateString.ToString.Trim.Replace("\", "_").Replace("/", "_") & ex
            My.Computer.FileSystem.WriteAllText(all, "BY saud", False)
        End If
    End Sub