Dosya Kopyalama

Bu örnekte FileCopy metodu ile txt, doc, xls, jpg vb. uzantıdaki dosyaları mevcut konumlarından istediğiniz konuma kopyalamayı göreceğiz.

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.SizableToolWindow
        Me.Text = "Dosya Kopyalama"
        Me.Left = 300
        Me.Top = 180
        Me.Width = 205
        Me.Height = 108
        Button1.Size = New System.Drawing.Size(150, 30)
        Button1.Text = "Yeni Dizine Kopyala"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        FileCopy("C:\dosya\deneme.txt", "C:\deneme.txt")
        FileCopy("C:\dosya\deneme.doc", "C:\deneme.doc")
        FileCopy("C:\dosya\deneme.xls", "C:\deneme.xls")
        FileCopy("C:\dosya\deneme.jpg", "C:\deneme.jpg")
        MessageBox.Show("Dosyalar yeni dizine kopyalandı")
    End Sub
End Class

Bir sonraki makalede görüşmek üzere. Bahadır