Closing Files

Apocolypse2005 · August 19th, 2007, 03:41 PM

Well, in my app the user can open files which are obviously by code opened for input nd displayed into a grid which works fine (not hard to do at all) but when i they want to open another file the open dialog returns an error saying file already open even if its a different file completely! Why is that? When i open a file for input i do make sure that the file is closed afterwards!

------------------------------------------------
Apocolypse2005
Always ready and waiting to be helped!

gbianchi · August 21st, 2007, 07:10 AM

are you using a diferent file number for each one??

how do you open it??

HTH

Gonzalo

================================================== =========
Read this if you want to know how to get a correct reply for your question:
http://www.catb.org/~esr/faqs/smart-questions.html
^^Took that from dparsons signature and he Took that from planoie's profile
================================================== =========
My programs achieved a new certification (can you say the same?):
WORKS ON MY MACHINE
http://www.codinghorror.com/blog/archives/000818.html
================================================== =========
I know that CVS was evil, and now i got the proof:
http://worsethanfailure.com/Articles...-Hate-You.aspx
================================================== =========

Apocolypse2005 · August 21st, 2007, 02:10 PM

well i use this code

Code:

On Error GoTo DiEr

With cdSave
    .CancelError = True
    .DialogTitle = "Load Library"
    .Filter = "All Librarys(*.lstlib)|*.lstLib"
    .FilterIndex = 1
    .InitDir = App.Path

    .ShowOpen
  
    ReadPlaylist (.FileName)
End With

DiEr:
     If Err.Number = 32755 Then
        Exit Sub
    Else
    MsgBox Str(Err.Number) & ": " & Err.Description, vbCritical, "Error"
    End If

Which is the button handler and this code to open the file

Code:

Sub ReadPlaylist (sPath As String)
Open sPath For Input As #1
'code is executed in here!
Close #1

------------------------------------------------
Apocolypse2005
Always ready and waiting to be helped!

gbianchi · August 21st, 2007, 02:17 PM

well.. you are using the same number for every file.. use freefile to get a new number for a file.. that way you avoid trying to open one file in top of another...

Code:

dim i as integer
i = freefile
open file for input as i '(or was #i I don't remember)

HTH

Gonzalo

================================================== =========
Read this if you want to know how to get a correct reply for your question:
http://www.catb.org/~esr/faqs/smart-questions.html
^^Took that from dparsons signature and he Took that from planoie's profile
================================================== =========
My programs achieved a new certification (can you say the same?):
WORKS ON MY MACHINE
http://www.codinghorror.com/blog/archives/000818.html
================================================== =========
I know that CVS was evil, and now i got the proof:
http://worsethanfailure.com/Articles...-Hate-You.aspx
================================================== =========