How many files can be open at a given time?

[J e r]

I'm a novice using VB .NET . I'm trying to use 2 files to read a line write
the line and get the run time error
"..exceptio n of type 'System.IO.IOEx ception.....add itional information:
File already open."

It seems the error message is telling me VB can have only 1 file open at a
time. Tell me that's not true and where
I'm going wrong, please.

The code is:

Imports System.IO.File
..
..
..
..
private sub bRun_Click(byva l sender as System.Object, byval e as
System.Event.Ar gs) handles bRun.Click)

dim infil as integer = FreeFile()
dim outfil as integer = FreeFile()
dim infilname as string = "c"\red.txt "
dim outfilname as string = "c"\wrt.txt "
dim inline as string

FileOpen(outfil , outfilname,Open Mode.Output)
FileOpen(infil, infilname,OpenM ode.Input) 'this is where error
occurs

while not eof(infil)
inline = LineInput(infil )
PrintLine(outfi l,inline)
end while

FileClose(infil )
FileClose(outfi l)

end sub
Thanks for your time, J e r

[Cor]

Hi Jer,

I can give you an answer on your code (you can a lot of files open in the
same time), but this is very classic VB, when you are not writting something
that has to be converted, have than a look at streamreader and streamwriter
class.

I hope this helps

Cor

I'm a novice using VB .NET . I'm trying to use 2 files to read a line write the line and get the run time error
"..exceptio n of type 'System.IO.IOEx ception.....add itional information:
File already open."

It seems the error message is telling me VB can have only 1 file open at a
time. Tell me that's not true and where
I'm going wrong, please.

The code is:

Imports System.IO.File
.
.
.
.
private sub bRun_Click(byva l sender as System.Object, byval e as
System.Event.Ar gs) handles bRun.Click)

dim infil as integer = FreeFile()
dim outfil as integer = FreeFile()
dim infilname as string = "c"\red.txt "
dim outfilname as string = "c"\wrt.txt "
dim inline as string

FileOpen(outfil , outfilname,Open Mode.Output)
FileOpen(infil, infilname,OpenM ode.Input) 'this is where error occurs

while not eof(infil)
inline = LineInput(infil )
PrintLine(outfi l,inline)
end while

FileClose(infil )
FileClose(outfi l)

end sub

[One Handed Man [ OHM# ]]

Right here is the most probable scenario !

You write some code which opens a file right !, then it fails or you are
debugging it and terminate it before you close it. OR you forget to close it
in code.

Then you change something and run the code again, you get the error message
because you already left it open.

Regards - OHM



J e r wrote:

I'm a novice using VB .NET . I'm trying to use 2 files to read a
line write the line and get the run time error
"..exceptio n of type 'System.IO.IOEx ception.....add itional
information: File already open."

It seems the error message is telling me VB can have only 1 file open
at a time. Tell me that's not true and where
I'm going wrong, please.

The code is:

Imports System.IO.File
.
.
.
.
private sub bRun_Click(byva l sender as System.Object, byval e as
System.Event.Ar gs) handles bRun.Click)

dim infil as integer = FreeFile()
dim outfil as integer = FreeFile()
dim infilname as string = "c"\red.txt "
dim outfilname as string = "c"\wrt.txt "
dim inline as string

FileOpen(outfil , outfilname,Open Mode.Output)
FileOpen(infil, infilname,OpenM ode.Input) 'this is where
error occurs

while not eof(infil)
inline = LineInput(infil )
PrintLine(outfi l,inline)
end while

FileClose(infil )
FileClose(outfi l)

end sub
Thanks for your time, J e r

Regards - OHM# OneHandedMan{at }BTInternet{dot }com

[Cor]

OHM

dim infil as integer = FreeFile()
dim outfil as integer = FreeFile()

I even did not check it but was that not
1 and 2 or something?

Cor

[Herfried K. Wagner [MVP]]

* "J e r" <mi*****@localn et.com> scripsit:

I'm a novice using VB .NET . I'm trying to use 2 files to read a line write
the line and get the run time error
"..exceptio n of type 'System.IO.IOEx ception.....add itional information:
File already open."

It seems the error message is telling me VB can have only 1 file open at a
time. Tell me that's not true and where
I'm going wrong, please.

The code is:

Imports System.IO.File
.
.
.
.
private sub bRun_Click(byva l sender as System.Object, byval e as
System.Event.Ar gs) handles bRun.Click)

dim infil as integer = FreeFile()
dim outfil as integer = FreeFile()
dim infilname as string = "c"\red.txt "
dim outfilname as string = "c"\wrt.txt "
dim inline as string

FileOpen(outfil , outfilname,Open Mode.Output)
FileOpen(infil, infilname,OpenM ode.Input) 'this is where error
occurs

while not eof(infil)
inline = LineInput(infil )
PrintLine(outfi l,inline)
end while

FileClose(infil )
FileClose(outfi l)

The code should work, but the filenames are invalid. Maybe the files
are opened by an other application?

--
Herfried K. Wagner [MVP]
<http://www.mvps.org/dotnet>

[One Handed Man [ OHM# ]]

Sorry I did not see the code before down the page. Here is the solution. The
original code could not have worked because the way FreeFile works is to
give you the next available File handle. As you had not used the first
available handle before asking for the next one, the same number would have
been given. '1'.

Here is the amended code. ( tested )

Dim infilname As String = "c:\MyIn.tx t"
Dim outfilname As String = "c:\MyOut.t xt"
Dim inline As String

infil = FreeFile()

FileOpen(infil, infilname, OpenMode.Input) 'this is where error occurs()

outfil = FreeFile()

FileOpen(outfil , outfilname, OpenMode.Output )

Regards - OHM


One Handed Man [ OHM# ] wrote:

Right here is the most probable scenario !

You write some code which opens a file right !, then it fails or you
are debugging it and terminate it before you close it. OR you forget
to close it in code.

Then you change something and run the code again, you get the error
message because you already left it open.

Regards - OHM



J e r wrote:

I'm a novice using VB .NET . I'm trying to use 2 files to read a
line write the line and get the run time error
"..exceptio n of type 'System.IO.IOEx ception.....add itional
information: File already open."

It seems the error message is telling me VB can have only 1 file open
at a time. Tell me that's not true and where
I'm going wrong, please.

The code is:

Imports System.IO.File
.
.
.
.
private sub bRun_Click(byva l sender as System.Object, byval e as
System.Event.Ar gs) handles bRun.Click)

dim infil as integer = FreeFile()
dim outfil as integer = FreeFile()
dim infilname as string = "c"\red.txt "
dim outfilname as string = "c"\wrt.txt "
dim inline as string

FileOpen(outfil , outfilname,Open Mode.Output)
FileOpen(infil, infilname,OpenM ode.Input) 'this is where
error occurs

while not eof(infil)
inline = LineInput(infil )
PrintLine(outfi l,inline)
end while

FileClose(infil )
FileClose(outfi l)

end sub
Thanks for your time, J e r

Regards - OHM# OneHandedMan{at }BTInternet{dot }com

Regards - OHM# OneHandedMan{at }BTInternet{dot }com

[J e r]

Thanks OHM!

And thanks to all who responded.

Your response time is the best.

Have a Merry Christmas, J e r

[Herfried K. Wagner [MVP]]

Errata (after testing the code):

Notice that I have changed the order of the commands:

* hi************* **@gmx.at (Herfried K. Wagner [MVP]) scripsit:

private sub bRun_Click(byva l sender as System.Object, byval e as
System.Event.Ar gs) handles bRun.Click)

dim outfil as integer = FreeFile() dim infilname as string = "c"\red.txt "
dim outfilname as string = "c"\wrt.txt "
dim inline as string

FileOpen(outfil , outfilname,Open Mode.Output) dim infil as integer = FreeFile() FileOpen(infil, infilname,OpenM ode.Input) 'this is where error
occurs

while not eof(infil)
inline = LineInput(infil )
PrintLine(outfi l,inline)
end while

FileClose(infil )
FileClose(outfi l)

--
Herfried K. Wagner [MVP]
<http://www.mvps.org/dotnet>