Run-Time error 55

Filen er allerede åben !!

Det er første gang jeg åbner filen????

Hvordan ser din kode ud?

Du kan eventuelt prøve at lave en Close INDEN du åbner filen, dette kan dog resultere i en anden fejl...

Close burde være sikker. Ellers brug Close #1 hvis f.eks. filehandle er #1.
Hvis det er en tekst fil kan det f.eks. være du har filen åben i notepad, uden for VB (eller så fremdeles)

Jeg åbner den samme fil 2 gange efter hinanden.
Jeg bruger Close #1 efter at have åbnet første gang.

proaccess> har du en e-mail jeg kan sende kode eksempel til?

cstern>Det er en tekst fil jeg prøver at indlæse og jeg har ikke åbnet filen i NotePad m.v.

Den angivne netværksressource eller enhed er ikke længere til rådighed.

prøv at bruge
i = freefile

open \"DenFilDuNuVilHa\" for append as #i

proaccess@hotmail.com

Har du også Close efter 2. åbning?

For hvis du så ikke har haft PC\'en slukket siden du sidst kørte programmet, er den STADIG åben, også selvom du ikke kan se den på proceslinien. (og eventuelt også selvom du ikke kan se den med Ctrl+Alt+Del).

Du SKAL have en Close for hver gang du åbner filen.

tjacob> Jeg har Close efter 2. åbning!
Men det kunne være at jeg skal genstarte PC\'en....

tjacob>det hjalp ikke at genstarte PC\'en...

Det er vel ikke sådan at du genbruger #1 til forskellige filer?
Det er altid en god ide at bruge (som skwat allerede har skrevet):

intFileHandle = FreeFile
Open \"DenFilDuVilHa\" For Append as #intFileHandle
...
Close #intFileHandle

...
intFileHandle = FreeFile  \' Her er det tricket kommer ind...
Open... etc

På den måde undgår du konflikter med nummereringen, da VB selv holder styr på næste ledige filehandle.

PS. du bør have Open statement umiddelbart efter kaldet af FreeFile hvis der er risiko for at der skal tilddeles en filehandle til andet brug.
Fx:
intFH1 = FreeFile
intFH2 = FreeFile
Open \"Firstfile\" For Input As #intFH1
Open \"Secondfile\" For Input As #intFH2

vil gå galt, da FreeFile i begge tilfælde har returneret den første ledige filehandle (#1) fordi den ikke er brugt (og derfor stadig ledig). Just a hint...

Du skal derfor

intFH1 = FreeFile  \' #1
Open \"Firstfile\" For Input As #intFH1
intFH2 = FreeFile  \' #2
Open \"Secondfile\" For Input As #intFH2

cstern>Tak for dit hint!
Det er rent faktisk den måde jeg har kodet efter...

Jeg er bange for at problemmet ligger et andet sted end der hvor vi taler om det.
prøv at lave en msgbox lige før du læse filen. boxen skal indenholde den path du vil læse fra.

Det skulle ikke undre mig hvis det der er galt er at du læser fra en sti i stil med
%apppath%\\data\\\\filen.dat

Hej Tien,

jeg har kigget på din kode, og den burde virke fint, jeg får dog en fejl nr 5, grundet jeg ikke har en \"rigtig\" datafil til rådighed.

Prøv at fjerne BEGGE On Error Goto sætninger, og kør din applikation, så kan du se hvor fejlen opstår, mail så tilbage, og vi kan løbe det igennem derfra.

Dine filnavne er der ihvertfald INTET i vejen med.

\'kay :)

Jeg har løst mit problem!
Jeg takker for kommentarene!

Det var forskellige versioner af mine controller som gjorde udslagene.