Jag vet att det skall finnas något kommando, typ if exist, men får det inte att fungera.
Jag spara innehålet i en lista, och vill kunna läsa denna lista vid klick.
<code>
Dim f%, i%, FileName$, TextStr$
'FileName = "c:\autoexec.bat" ' som ett exempelnamn
strListText = List1.Text
strListText = Split(strListText, " ")
strListText = Trim(strListText(0))
FileName = App.Path & "\" & strListText & ".txt"

f = FreeFile: i = 0
List3.Clear
If Dir(FileName) Then
Open FileName <> "" For Input As f
Do While Not EOF(f)
Line Input #f, TextStr
List3.AddItem TextStr
Loop
Close f
End If
</code>
Den vill inte fungera

Testa något sånt här:
<code>
Dim f As Long
Dim i As Long
Dim TextStr As String
Dim FileName As String
'FileName = "c:\autoexec.bat" ' som ett exempelnamn
strListText = Left(List1.Text, Instr(List1.Text," ") - 1)
FileName = App.Path & "\" & strListText & ".txt"

i = 0
List3.Clear
If Len(Dir(FileName)) Then
f = FreeFile
Open FileName For Input As f
Do Until EOF(f)
Line Input #f, TextStr
List3.AddItem TextStr
Loop
Close f
End If
</code>