Keskustelu: Ohjelmointikysymykset: VB6: VB: Filelistbox ja Textbox

Miten saa Filelistboxista textboxiin näkyviin tiedoston osotteen?

Tämä koodi kopioi tiedoston nimen tekstikenttään, kun tiedosto valitaan listasta.

Private Sub File1_Click()
    If Right(File1.Path, 1) = "\" Then
        Text1.Text = File1.Path & File1.FileName
    Else
        Text1.Text = File1.Path & "\" & File1.FileName
    End If
End Sub

Tiedoston hakemisto on muuttujassa File1.Path ja nimi on muuttujassa File1.FileName. Jos hakemiston lopussa ei ole kenoviivaa, sellainen lisätään ennen tiedoston nimeä.

Kiitos:)

Mutta nyt tuli uus ongelma.
Miten saa näkyviin vaan Filelistboxissa .mp3 ja .wma tiedostot?

Private Sub Form_Load()
File1.Pattern = "*.mp3;*.wma;*"
End Sub
Mitä vikaa tossa on?

Kirjoita rajoitus muodossa "*.mp3;*.wma", niin toimii. "*" viittaa kaikkiin tiedostoihin.

:)