Kirjautuminen

Haku

Tehtävät

Keskustelu: Koodit: VB.NET: Tiedostojen listaus

tnb [20.02.2005 20:30:28]

#

Vb.net:ssä ai tarvitse käyttää DIR käskyä hakemistossa olevien tiedostojen listaamiseen. Homma käy kätevästi IO.Fileinfo ja IO.DirectoryInfo tyyppisillä muuttujilla ja For each loopilla.

Projektissa on Button1 ja Textbox1.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    'viritellään tekstilaatikkoa
    TextBox1.Multiline = True 'useampi rivi
    TextBox1.ScrollBars() = ScrollBars.Vertical 'pystyvieritys
    TextBox1.Width = 400 ' leveys riittäväksi
    TextBox1.Clear() ' vanha teksti pois
    TextBox1.Font = New Font("Courier New", 8) ' fontti tasaleveäksi tyypiksi
    '
    ' Tiedostojen listaus
    Dim Tiedosto As System.IO.FileInfo ' FileInfo tyyppinen muuttuja
    Dim Hakemisto As New System.IO.DirectoryInfo("C:\") ' tiedot c:\ hakemistosta
    ' käydään läpi kaikki Tiedostot jotka ovat Hakemisto:ssa
    For Each Tiedosto In Hakemisto.GetFiles()
        'printtaus vakiolevyisenä
        TextBox1.Text = TextBox1.Text & Tiedosto.Name.PadRight(30) & "  " & Tiedosto.Length & vbNewLine
    Next
End Sub

Juice [21.02.2005 18:34:01]

#

Vaihdapa vbNewLine muotoon Microsoft.VisualBasic.vbNewLine.
Lisäksi olisi parempi, jos koko höskä olisi Button1_Clickin sijaan funktiossa, joka ottaisi parametriksi hakemiston nimen.

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta