تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
لعمل Back Up بطريقة سهلة
#1
كاتب الموضوع : Boutemine Oualid

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

كود:

كود :
Public Class Form1
Dim x As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
For x = 0 To My.Computer.FileSystem.Drives.Count
ComboBox1.Items.Add(My.Computer.FileSystem.Drives.Item(x))
Next
Catch ex As Exception
End Try
End Sub
Private Sub backup(ByVal srcdir As String, ByVal destDrive As String)
Dim src, dest, log As String
log = String.Empty
For Each file As String In My.Computer.FileSystem.GetFiles(srcdir, FileIO.SearchOption.SearchAllSubDirectories, "*.*")
src = file
dest = Replace(file, IO.Path.GetPathRoot(srcdir), destDrive)
Try
If IO.File.Exists(dest) Then
If not Date.Compare(My.Computer.FileSystem.GetFileInfo(src).LastWriteTime, My.Computer.FileSystem.GetFileInfo(dest).LastWriteTime) = 0 Then
'overwrite
My.Computer.FileSystem.CopyFile(src, dest, True)
End If
Else
'copy
My.Computer.FileSystem.CopyFile(src, dest, False)
End If
Catch ex As Exception
log = log & Now.ToShortDateString & " " & Now.ToLongTimeString & "." & Now.Millisecond & ex.Message & vbCrLf
End Try
If ProgressBar1.Value = 99 Then ProgressBar1.Value = 1
ProgressBar1.Value = ProgressBar1.Value + 1
Application.DoEvents()
Next
If log = String.Empty Then
MsgBox("No errors", MsgBoxStyle.Information)
Else
My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\" & Today.ToLongDateString & ".log", log, True)
If MessageBox.Show("somme errors occured," & vbCrLf & "Do you want to open the log file??", Application.ProductName, MessageBoxButtons.YesNo, MessageBoxIcon.Error) = Windows.Forms.DialogResult.Yes Then
Process.Start("notepad.exe", Application.StartupPath & "\" & Today.ToLongDateString & ".log")
End If
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim fdb As New FolderBrowserDialog
If fdb.ShowDialog = Windows.Forms.DialogResult.OK Then
Label1.Text = fdb.SelectedPath
Label2.Text = Replace(Label1.Text, "C:\", ComboBox1.SelectedItem.ToString)
End If
Catch ex As Exception
Label2.Text = "Choose a drive and restart"
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ProgressBar1.Style = ProgressBarStyle.Marquee
ProgressBar1.Value = 1
backup(Label1.Text, ComboBox1.SelectedItem.ToString)
ProgressBar1.Style = ProgressBarStyle.Blocks
ProgressBar1.Value = 100
End Sub
End Class
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كود لعمل تحجيم تلقائي -AutoSize- لأداة مربع النص TextBox sooriaty03 7 1,625 29-05-16, 01:01 AM
آخر رد: CLARO
  منع أغلاق الفورم عن طريق(×)وأغلاقه بطريقة جميلة RaggiTech 0 607 17-10-12, 09:02 PM
آخر رد: RaggiTech
  تشفير النصوص بطريقة رائعة RaggiTech 0 489 17-10-12, 08:42 PM
آخر رد: RaggiTech
  اغلاق الفورم بطريقة جميلة RaggiTech 0 487 17-10-12, 08:22 PM
آخر رد: RaggiTech
  لعمل نسخة من Class دون استعمال الكلمة new RaggiTech 0 292 17-10-12, 06:14 PM
آخر رد: RaggiTech
  لعمل اختصار على سطح المكتب RaggiTech 0 332 17-10-12, 06:10 PM
آخر رد: RaggiTech
  لعمل اتصال نحو قاعدة بيانات MySQL RaggiTech 0 372 17-10-12, 06:09 PM
آخر رد: RaggiTech
  لعمل Serialization نحو XML RaggiTech 0 283 17-10-12, 06:09 PM
آخر رد: RaggiTech
  لعمل Ping لسيرفر RaggiTech 0 357 17-10-12, 06:09 PM
آخر رد: RaggiTech
  لعمل لون متدرج على الفورم RaggiTech 0 357 17-10-12, 05:31 PM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم