Dosya İsimlerini Sıralı Şekilde Oluşturma

Merhaba arkadaşlar, bu makalemizde deneme klasöründe oluşturduğumuz dosyalara, ekleyeceğimiz yeni dosya isimleri ve numaraları sıralı bir şekilde önceki dosyaları takip edecek şekilde dosya ismi vereceğiz (Ör: img0001, img0002,img0003…) . Detaylı açıklamalar kod kısmında verilmiştir.

Şekil 1

Imports System.IO

Public Class Form1

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

        Dim dosya() As String

        dosya = System.IO.Directory.GetFiles("C:\deneme")

        Dim i, dosyacount As Integer

        For i = 0 To dosya.GetUpperBound(0)

            Dim fi As New System.IO.FileInfo(dosya(i))

            'deneme klasöründeki dosya sayısını alıyoruz.

            dosyacount = dosyacount + 1

        Next

        Dim sw As StreamWriter

        Dim fs As FileStream

        'text dosyamızı oluşturuyoruz

        fs = New FileStream("C:\deneme\ABCD0000" & dosyacount & ".txt", FileMode.Create)

        sw = New StreamWriter(fs)

        'text dosya içine mesajı yazıyoruz.

        sw.Write("Sıralı dosya ismi ve numarası veriyoruz. B.S.")

        sw.Close()

        fs.Close()

    End Sub

End Class

Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek dileğiyle. Hoşçakalın. Bahadır ŞAHİN