Keskustelu: Ohjelmointikysymykset: VB6: Yhden tiedoston hakeminen muiden joukosta...

Miten voin hake esim. c:\mp3\ -hakemistosta yhden mp3:n muiden mp3:n joukosta? Siis ihan vaan vaikka randomina...

Onko tähän joku funktio tai joku? Joku get tai...

Kielihän on siis VisualBasic :D

Valmista funktiota ei ole olemassa, mutta sellaisen voi helposti tehdä itse. Funktion ArvoTiedosto ensimmäinen parametri on hakemisto (viimeisen merkin täytyy olla kenoviiva) ja toinen parametri tiedoston tarkenne (*.mp3 => kaikki mp3-tiedostot, *.txt => kaikki tekstitiedostot, *.* => kaikki tiedostot).

Private Sub Form_Load()
    MsgBox "Arvottu musiikkikappale: " & ArvoTiedosto("c:\musa\", "*.mp3")
End Sub

Function ArvoTiedosto(hak As String, paate As String)
    Dim taulu(500) As String, nimi As String, k As Integer
    nimi = Dir(hak & paate)
    Do Until nimi = ""
        taulu(k) = nimi
        nimi = Dir
        k = k + 1
    Loop
    Randomize Timer
    ArvoTiedosto = taulu(Int(Rnd * k))
End Function

Lisätietoa käytetyistä komennoista:
http://vb.ohjelmointiputka.net/?Dir
http://vb.ohjelmointiputka.net/?Rnd

edit: Hakemiston tiedostojen maksimimäärä on tässä 500.

Kiitos! Tämähän toimii erinomaisesti!