ProgressBar İle Birlikte  Dosya Kopyalama Örneği

Merhaba arkadaşlar bu makalemizde progressbar ile birlikte dosya kopyalama ile ilgili bir örnek yapacağız. OpenFileDialog ile seçtiğimiz dosyayı kopyalarken kopyalama yüzdesi ve kopyalama boyutunu da ekran da göstereceğiz.

Screenshot

Şekil 1

Form1.vb

Imports System.IO

Public Class Form1

    Dim str As String

    Dim kopyala As String

    Dim i As Integer = 0

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        OpenFileDialog1.ShowDialog()

        str = OpenFileDialog1.FileName

        kopyala = "D:\" & OpenFileDialog1.SafeFileName

        Timer1.Start()

        ProgressBar1.Value = 0

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        i = i + 1

        ProgressBar1.Increment(1)

        Dim fileSize As IO.FileInfo

        fileSize = My.Computer.FileSystem.GetFileInfo(OpenFileDialog1.FileName)

        Label1.Text = "Dosya kopyalanıyor!  " & i & " % " & vbCrLf & "Kopyalanan : " & CInt(i * fileSize.Length / (1024 * 1024 * 100)) & ” MB / ” & CInt((100 - i) * fileSize.Length / (1024 * 1024 * 100)) & ” MB  ”

        If ProgressBar1.Value = ProgressBar1.Maximum Then

            Try

                File.Copy(str, kopyala, True)

                Label1.Text = "Dosya kopyalandı."

                i = 0

                Timer1.Stop()

            Catch ex As System.IO.FileNotFoundException

                MsgBox(ex.ToString())

            End Try

        End If

    End Sub

End Class

Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN