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

Share This:

Facebook Twitter Pinterest Linkedin Whatsapp Whatsapp

About Bahadır Şahin

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.