Hej
Mitt program ska lista alla bmp-filer i en mapp. Men en fil uteblir alltid! Vad är fel i min kod?

Form_Load-kod:

Dim Bildfil As String, j As Integer
Bildfil = Dir(Label1.Caption & "\" & "*.bmp")

j = 0
Do
Bildfil = Dir
If Bildfil = "" Then Exit Do
Label4(j).Caption = Bildfil ' bmp-filerna ska listas i Label4
Label6(j).Caption = j

j = j + 1
Label3.Caption = Label3.Caption + 1
If j >= 49 Then Exit Do
Loop
Label2.Caption = Label1.Caption & "\" & Label4(j).Caption

Picture1.Picture = LoadPicture(Label2.Caption)

Du kör Bildfil = Dir innan du har hunnit spara ner namnet på den första filen.

/Johan

Hur ska jag då skriva istället? Förslag?

<code>
Dim Bildfil As String, j As Integer
Bildfil = Dir(Label1.Caption & "\" & "*.bmp")

j = 0
Do
Label4(j).Caption = Bildfil ' bmp-filerna ska listas i Label4
Label6(j).Caption = j
Bildfil = Dir
If Bildfil = "" Then Exit Do

j = j + 1
Label3.Caption = Label3.Caption + 1
If j >= 49 Then Exit Do
Loop
Label2.Caption = Label1.Caption & "\" & Label4(j).Caption

Picture1.Picture = LoadPicture(Label2.Caption)
</code>

Detta kanske kan fungera bättre...

/Johan

Mit förslag. Har även lagt in god för att töma kontrolle som ej används.
<code>
Dim Bildfil As String
Dim j As Integer
Bildfil = Dir(Label1.Caption & "\*.bmp")
Do While Len(Bildfil) > 0 And j < 50
Label4(j).Caption = Bildfil ' bmp-filerna ska listas i Label4
Label6(j).Caption = j
j = j + 1
Loop
Label3.Caption = Label3.Caption + j
Label2.Caption = Label1.Caption & "\" & Label4(j).Caption
Picture1.Picture = LoadPicture(Label2.Caption)

'Tömmer kontroller som ej används
For j = j To 49
Label4(j).Caption = ""
Label6(j).Caption = ""
Next
</code>