New Document

New Page

Haftanın Gününe Göre Dosya Kopyalama

Haftanın gününe göre seçilen dosyanın yedeğini alınmasını sağlıyacağız. Aşağıdaki şekilleri inceleyin.

Resim1

Şekil 1

Resim2

Şekil 2

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim tarih As Date = Now
        Dim gun
        Dim gunadi
        gun = Weekday(tarih, FirstDayOfWeek.Monday)
        gunadi = WeekdayName(gun, False, FirstDayOfWeek.Monday)

        Dim gunsayi
        gunsayi = Weekday(tarih, FirstDayOfWeek.Monday)
        ‘kopyalacak text dosyası oluşturuluyor.
        ‘sizler istediğiniz dosyanın günlük olarak yedeğini
        ‘alabilirsiniz.

        Dim dosya As New System.IO.StreamWriter("C:\test" & gunsayi.ToString & ".txt")
        dosya.WriteLine("Bugün :" & tarih & " Günlerden : " & gunadi)
        dosya.Close()
        Dim i As Integer

        For i = 1 To 7 Step 1
            ‘Ör:gün sayısı 3 ise Gün: Çarşamba
            ‘test3.txt dosyasını yedek3.txt olarak Çarşamba günü
            ‘kopyalayacaktır.
            If gunsayi = i Then
                FileCopy("C:\test" & gunsayi.ToString & ".txt", "C:\yedek" & gunsayi.ToString & ".txt")
                MessageBox.Show("C:\test" & gunsayi.ToString & " dosyası " & " C:\yedek" & gunsayi.ToString & ".txt" & " olarak kopyalandı")
            End If
        Next

        Me.Close()
    End Sub
End Class

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