Hej

Jag vill lista filer i en listbox, det kör ihop sig när jag vill lista tex alla bmp, jpg och gif-filer från en speciell mapp i listboxen.
Förslag på hur jag kan göra?

/Göran

Ja inte för att jag förstår varför det skulle vara svårare att lista *.gif eller *.bmp i en listbox....

Men här har du hur jag skulle lösa problemet:

Skapa en form med en listbox, och en commandbutton.

=============================================

Option Explicit

Private Sub Command1_Click()
Dim path As String, fil As String
path = "c:\"
fil = Dir(path, vbNormal)
While fil <> ""
If (GetAttr(path & fil) And vbNormal) = vbNormal Then
List1.AddItem fil
End If
fil = Dir
Wend
End Sub

=============================================

/peterh <=> hpeter

Först igen ;)

Finns ju en inbyggd FilListBox(ikonen ser ut som ett text dokument).
Bara att sätta Pattern egenskpen till *.bmp;*.jpg;*.gif.
Path egenskapen anger vilken katalog som skall visas.

Hade tur som kom att tänka på den. Annars så skulle jag nog också föreslå Dir funktionen.

/Mvh, Andreas

Filtrerar din funktion filtyperna? Och varför kontrollerar du om attributen är normal?

Lite optimering:
While Len(fil)
är snabbare än:
While fil <> ""

Men jag tycker om dig ändå... :O)

Nja exeplet ovan saxxade jag ur VB-hjälpen och modifierade bara lite grand... La inge speciell tid på att optimera ;)

/peterh

PS. Lite förvånad över att du inte lagt till nåt till mitt lösningsförslag på att byta ut två sista raderna i en textfil.