Hej

Jag har ett program där jag läser in en text fil med följande kod
<code>
If Dlg1.FileName = "*.crp" Then Exit Sub
Open Dlg1.FileName For Input As #1
Text1 = Input(LOF(1), 1)
Close #1
</code>

Men problemet är att det fungerar fint på min egen dator med Windows XP
men när jag kör programmet på en annan dator med Windows XP
så får jag ett felmeddelande som det står
INPUT PAST END OF FILE

Hjälp!!??

Slarvig kod, vad står det i sökvägen, finns filen, är den tom ?
Kan man verkligen använda "wildcard" som du gjort ?

Lägg in en MsgBox Dlg1.FileName före If , vad står det då i boxen ?

Dlg1 = Common Dialog Box

sökvägen finns, men saken är den att den öppnar filen på min egen dator
men inte på min polares dator....vi båda kör Windows XP
och jag skickar med alla ocx filer....programmet och ocx filer ligger i en installer...
så det saknas inte någon fil....

och denna koden har jag kontrollerat med tidigare exempel här på pellesoft
där dom använder "wildcard"......men det kan ju vara så att det är något fel på min polares dator
men isåfall vad??...jag får bara upp det felmeddelandet...

Prova det här

<code>
If Dlg1.FileName = "*.crp" Then Exit Sub
Open Dlg1.FileName For Input As #1
Text1 = LOF(1)
Close #

</code>

men då skriver den endast ut antalet tecken i filen...så det fungerar inte så...

Men frågan är ju vad står det i kompisens dator när du kör koden ovan ?
Om filen inehåller tecken så borde det vara Ok.

Snabbt och kanske fel men ! måste inte filen ha jämnt antal Bytes ?