Koden är uttryckt ur sitt sammanhang med den beskriver fenomenet.

Det går bra att öppna filen och läsa innehållet. Men när jag ska öppna filen på nytt får jag ett felmeddelande "Körfel nr 55, Filen är redan öppen"
Close #fileNumber verkar inte stänga filen.

Vad gör jag för fel?

<code
Public Sub TestFil()

Dim fileNummer As Integer
Dim fileNamn As String
Dim Verksamhet As String
Dim Anlaggning As String

fileNummer = FreeFile
fileNamn = "D:\test\fil_1.txt"

Open fileNamn For Output As #fileNummer
Print #fileNummer, Verksamhet
Print #fileNummer, Anlaggning
Close #fileNumber

fileNummer = FreeFile
Open fileNamn For Input As #fileNummer
Line Input #fileNummer, Verksamhet
Line Input #fileNummer, Anlaggning
Close #fileNumber
End Sub

</code

Hej,
du använder två snarlika variabelnamn: fileNumber & fileNummer.
Du använder fileNummer när du öppnar filen, men när du stänger använder du fileNumber, där är problemet.

/Dan T

Tack

Jag skäms :(
Får ursäkta mig med att man blir hemmablind i sin egen kod. Också är det farligt men klipp och klistra.

/Monia