Dosya Adı ve Sayısını Öğrenmek

Merhaba arkadaşlar, bu makalemizde C sürücüsünde bulunan Text dosyalarının adını ve sayısını öğreneceğiz.

Şekil 1 

Form1.vb

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 sayısı

        Dim count As Integer

        'C sürücüsündeki txt dosya sayısını öğreneceğiz.

        'FileAttribute.Hidden ile gizli dosyalarında gösterimini

        'sağlıyoruz.

        dosya = Dir("C:\*.txt", FileAttribute.Hidden)

        If dosya <> "" Then

            count = count + 1

        End If

        While dosya <> ""

            dosya = Dir()

            count = count + 1

        End While

        'C sürücüsündeki text dosyaların isimlerini

        'Listbox a ekliyoruz.

        ListBox1.Items.AddRange(Directory.GetFiles("C:\", "*.txt", SearchOption.TopDirectoryOnly))

        'Text dosyaların sayısı

        Label1.Text = "Text Dosya Sayısı: " & count

    End Sub

End Class

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