Kirjautuminen
Tehtävät
Kilpailu
4. kierros:
7.11. klo 18 – 9.11. klo 23
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 SubVaihdapa vbNewLine muotoon Microsoft.VisualBasic.vbNewLine.
Lisäksi olisi parempi, jos koko höskä olisi Button1_Clickin sijaan funktiossa, joka ottaisi parametriksi hakemiston nimen.
Aihe on jo aika vanha, joten et voi enää vastata siihen.