Jag får felmeddelande (run time error) om ingen info finns i Setup Information (Bok1.inf) Vid rad ...Line Input #1, Använd
Det är först när info finns (txt.fil som sparats i mappen) som allt funkar.

Hur kringår man detta när Form loadas och ändå ska kunna öppnas, även om ingen setup info finns i "Bok1.inf". ??

'Kod

Private Sub Form_Load()
Open "Bok1.inf" For Output As #1
For Nummer = 0 To (FilBok.ListCount - 1)
Print #1, FilBok.List(Nummer)
Next Nummer
Close #1
Open "Bok1.inf" For Input As #1
Do
Line Input #1, Använd
Laddande = Använd
LongNummer = InStr(1, Laddande, ".", 0)
Använd = Left(Laddande, LongNummer - 1)
For Nummer2 = 0 To 9
CobTänkta(Nummer2).AddItem Använd
Next Nummer2
Loop Until EOF(1)
Close #1
For Nummer2 = 0 To 9
CobTänkta(Nummer2).AddItem " "
Next Nummer2
DisableX
Me.Move 0, 0, Screen.Width, Screen.Height

End Sub


Mvh
Kenneth

Man kan alltid undvika felmeddelanden genom att använda sig av On Error

Skriv tex

Private Sub Form_Load()
    On Error GoTo FileIsEmpty
    
    'Här lägger du till din kod
    
    
    Exit Sub
FileIsEmpty: 'Om något fel inträffar hoppar exekveringen hit
    MsgBox "Filen är tom"
End Sub

Private Sub Form_Load()
    If FileLen("filenamnet") = 0 Then
        MsgBox "Filen är tom!"
    End If
End Sub

Juste Magnus
Tack på förhand ska kolla, men ser teoretiskt riktigt ut

Mvh

Tycker att här är ett läge där du med gott samvete kan använda <b>On Error Resume Next</b>
Sen tycker jag inte om att du använder #1. Använd Fnum = FreeFile
<code>
On Error Resume Next
' fnum = FreeFile
'Open "Bok1.inf" For Input As #Fnum
Open "Bok1.inf" For Input As #1
Do
Line Input #1, Använd
Laddande = Använd
LongNummer = InStr(1, Laddande, ".", 0)
Använd = Left(Laddande, LongNummer - 1)
For Nummer2 = 0 To 9
CobTänkta(Nummer2).AddItem Använd
Next 'Nummer2
Loop Until EOF(1)
Close #1
For Nummer2 = 0 To 9
CobTänkta(Nummer2).AddItem " "
Next 'Nummer2
DisableX
Me.Move 0, 0, Screen.Width, Screen.Height
GoTo Error 0
End Sub
</code>

Hej Sven

Tack för Ditt inlägg, tror eller vet att det bör funka bättre och mer dynamiskt.

Mvh
Kenneth