Run time error 55 file already open

• 
• VBForums
• Visual Basic
• Visual Basic 6 and Earlier
• [RESOLVED] VB6 — Run-Time Error 55 — File already open File Download

1. Aug 29th, 2013, 11:35 PM

   
   

   #1

   [RESOLVED] VB6 — Run-Time Error 55 — File already open File Download
   

   Hi,

   I am using Jmacp’s Asynchronous download User Control to download files of over 500MB. However, I noticed that I receive a number of errors, one of which is «Run-Time Error 55 — File already open» I have managed to track download the part of the code causing the problem, although, I have no idea how to fix it?

   vb Code:

   Private Sub UserControl_AsyncReadComplete(AsyncProp As AsyncProperty)
       Dim intFile  As Integer
       Dim bBytes() As Byte
   
   
   
   
     
   
   
                          
     
   
   
   
       intFile = FreeFile()
       Open App.Path & "Error.Log" For Append As #ff
      On Error GoTo errHandler
       Select Case AsyncProp.PropertyName
           Case "file"
               Open App.Path & "" & strFilename For Binary As #intFile
                   Print #ff, "Before Bytes"
                   bBytes = AsyncProp.Value
                   Put #1, , bBytes
               Close #intFile
   
   
   
   
     
   
   
                          
     
   
   
   
               txtDest.Text = "File saved to " & App.Path & "" & strFilename
               Print #ff, "After File saved to"
               cmdFile.Enabled = True
       End Select
       lblProgress.Visible = False
       lblPercent.Caption = "0%"
       Close #ff
       Exit Sub
   errHandler:
       MsgBox Err.Number & " " & Err.Description
   
   
   
   
     
   
   
                          
     
   
   
   
   End Sub

   As you can see it just jumps straight to the «errHandler».

   Nightwalker

   when you quote a post could you please do it via the «Reply With Quote» button or if it multiple post click the «»+» button then «Reply With Quote» button.
   If this thread is finished with please mark it «Resolved» by selecting «Mark thread resolved» from the «Thread tools» drop-down menu.
   https://get.cryptobrowser.site/30/4111672

   ---

2. Aug 29th, 2013, 11:52 PM

   
   

   #2

   Re: VB6 — Run-Time Error 55 — File already open File Download
   

   You are setting your file handle incorrectly

   You use Freefile but then you open a file with a different [undefined?] variable
   Then you try to open the file with the handle returned by freefile which may no longer be free as you opened a file after you assigned it.

   See the lines in red that have been added or changed below

   Code:

       Dim FF as integer
       Dim intFile  As Integer
       Dim bBytes() As Byte
       FF = FreeFile()
       Open App.Path & "Error.Log" For Append As #ff
      On Error GoTo errHandler
      
       Select Case AsyncProp.PropertyName
    
           Case "file"
                intfile=freefile
               Open App.Path & "" & strFilename For Binary As #intFile
                   Print #ff, "Before Bytes"

   ---

3. Aug 30th, 2013, 12:25 AM

   
   

   #3

   Re: VB6 — Run-Time Error 55 — File already open File Download
   

   You also need to change the ‘Put #1, , bBytes’ to ‘Put #intFile, , bBytes’

   ---

4. Aug 30th, 2013, 12:31 AM

   
   

   #4

   Re: VB6 — Run-Time Error 55 — File already open File Download
   

   @DM,

   I am referring to the file being downloaded but what you said might have caused the problem too.

   @Doogle,

   At least that is NOT my mistake but in the original code.

   when you quote a post could you please do it via the «Reply With Quote» button or if it multiple post click the «»+» button then «Reply With Quote» button.
   If this thread is finished with please mark it «Resolved» by selecting «Mark thread resolved» from the «Thread tools» drop-down menu.
   https://get.cryptobrowser.site/30/4111672

   ---

5. Aug 30th, 2013, 12:41 AM

   
   

   #5

   Re: VB6 — Run-Time Error 55 — File already open File Download
   

   Well, this time I received «Run time error 7 Out of Memory».

   when you quote a post could you please do it via the «Reply With Quote» button or if it multiple post click the «»+» button then «Reply With Quote» button.
   If this thread is finished with please mark it «Resolved» by selecting «Mark thread resolved» from the «Thread tools» drop-down menu.
   https://get.cryptobrowser.site/30/4111672

   ---

6. Aug 30th, 2013, 12:44 AM

   
   

   #6

   Re: VB6 — Run-Time Error 55 — File already open File Download
   

   Save the Project and re-start the IDE.

   ---

7. Aug 30th, 2013, 02:44 AM

   
   

   #7

   Re: VB6 — Run-Time Error 55 — File already open File Download
   

   Originally Posted by Doogle
   

   Save the Project and re-start the IDE.

   I have and the error occurred again! However, rather than VB6 closing after the error message it was an error from the user control itself which begs the questions what is happening and how do I stop it? I have attached a demo.

   Edit:

   I tried changing

   vb Code:

   Dim intFile  As Long

   but still the same problem.

   Edit II:

   Originally Posted by dilettante
   

   Your first error is because there is a limit on how big the Byte array can be.

   I suggest you make it no larger than 512KB, and then after you Seek to the starting point do a series of 512KB reads and writes until you have copied almost everything. Finally Redim the array to fit any smaler leftover chunk at the end and read/write once more.

   Something like 256KB might even be better.

   The second problem occurs because the program aborts without closing the file (or files). This leaves a file handle open and it stays open until either the compiled EXE terminates or in the IDE the IDE must terminate. You might also use error trapping to catch any failure and then go to a «check for open, if open close the file» handler.

   Last edited by Nightwalker83; Aug 31st, 2013 at 12:06 AM.

   Reason: Adding more!

   when you quote a post could you please do it via the «Reply With Quote» button or if it multiple post click the «»+» button then «Reply With Quote» button.
   If this thread is finished with please mark it «Resolved» by selecting «Mark thread resolved» from the «Thread tools» drop-down menu.
   https://get.cryptobrowser.site/30/4111672

   ---

8. Aug 30th, 2013, 07:33 AM

   
   

   #8

   Re: VB6 — Run-Time Error 55 — File already open File Download
   

   I’m not sure what thread you pulled that quote from, but I don’t think it applies to your situation.

   People really need to stop calling VB6’s native I/O file numbers «file handles» because that is not what they are at all. Stubbornly calling a mouse a horse doesn’t help you or anyone around you.

   Based on what little I can get from the quote above, I was talking about using Win32 API calls to do file I/O with very large files. In such a case you would indeed be using file handles, and the problem with unclosed file handles when running in the IDE is for real.

   However in everything else you have posted in this thread (snippets above, attachments) you are not working with any file handles directly. Instead you are using VB’s native I/O statements, which work with VB file numbers. There are still real file handles buried a few layers down but the VB6 runtime completely manages them and does not leave unclosed handles around even if your code aborts.

   So none of what I was talking about (wherever that quote was lifted from) applies to your situation here.

   I suspect your real problem here is that you are messing around with

   vbAsyncTypeByteArray downloads for very large files. You are telling VB to buffer up the entire download in RAM, then you fetch that into a Byte array which makes another full copy of the data in RAM. The two copies of this data alone consumes 2 times «over 500MB» bytes of RAM, plus whatever else your program is using plus runtime overhead, etc.

   I am not surprised that you are running into problems, bumping into RAM limits for a 32-bit process or other lower limits constrained by the VB runtime and IDE.

   The AsyncRead method really isn’t designed for massive downloads. If you insist on doing so you are probably going to be far better off using its

   vbAsyncTypeFile setting instead. This avoids the problem of keeping the entire download in RAM, and completely eliminates the need for your code to create a second copy in a Byte array.

   After all, you do nothing but turn around and write the bytes to disk anyway… so what are you thinking by doing this???

   ---

9. Aug 30th, 2013, 06:51 PM

   
   

   #9

   Re: VB6 — Run-Time Error 55 — File already open File Download
   

   Originally Posted by dilettante
   

   I’m not sure what thread you pulled that quote from, but I don’t think it applies to your situation.

   I got the quote from the «Huge (>2GB) File I/O Class» thread in the VB6 Codebank. I copied the quote because it was it response to a problem

   Originally Posted by green.pitch
   

   I am getting 2 error messages:

   1. run-time error ‘7’:
   Out of memory

   That error is the same error I have been receiving from post #5.

   Here is the User Control code from post #7

   vb Code:

   Option Explicit
   Private strFilename   As String
   Private Sub cmdHtml_Click()
       Dim strHtmlURL  As String
       strHtmlURL = InputBox("Enter a URL", "AsyncRead Html")
       If InStr(1, LCase(strHtmlURL), "http://") Then
           UserControl.AsyncRead strHtmlURL, vbAsyncTypeByteArray, "html", vbAsyncReadForceUpdate
       Else
           MsgBox "Enter a valid URL ....doh", vbCritical, "AsyncRead download"
       End If
   End Sub
   Private Sub cmdFile_Click()
       Dim strFileURL As String
       Dim strParts() As String
       strFileURL = "http://download.thinkbroadband.com/1GB.zip"
       If InStr(1, LCase(strFileURL), "http://") Then
           strParts = Split(strFileURL, "/")
           strFilename = strParts(UBound(strParts))
           If Dir(App.Path & "" & strFilename) <> vbNullString Then
               If MsgBox("File exists, Overwrite?", vbYesNo) = vbNo Then
                   Exit Sub
               End If
           End If
           lblProgress.Visible = True
           UserControl.AsyncRead strFileURL, vbAsyncTypeByteArray, "file", vbAsyncReadForceUpdate
       Else
           MsgBox "Enter a valid URL ....doh", vbCritical, "AsyncRead download"
       End If
   End Sub
   Private Sub UserControl_AsyncReadComplete(AsyncProp As AsyncProperty)
       Dim intFile  As Integer
       Dim bBytes() As Byte
       intFile = FreeFile()
      On Error GoTo errHandler
       Select Case AsyncProp.PropertyName
           Case "file"
               Open App.Path & "" & strFilename For Binary As #intFile
                   bBytes = AsyncProp.Value
                   Put #intFile, , bBytes
               Close #intFile
               txtDest.Text = "File saved to " & App.Path & "" & strFilename
       End Select
       lblProgress.Visible = False
       lblPercent.Caption = "0%"
       Exit Sub
   errHandler:
       MsgBox Err.Number & " " & Err.Description
   End Sub
   Private Sub UserControl_AsyncReadProgress(AsyncProp As AsyncProperty)
       On Error Resume Next
       picAsyncReadDownload.ScaleWidth = AsyncProp.BytesMax
       lblProgress.Width = AsyncProp.BytesRead
       lblPercent.Caption = Int((AsyncProp.BytesRead / picAsyncReadDownload.ScaleWidth) * 100) & "%"
       On Error GoTo 0
   End Sub
   Private Sub UserControl_Initialize()
       lblProgress.Left = -15
       lblPercent.Caption = "0%"
   End Sub

   I thought the amount of data was too much for the byte array and was wondering if you had any idea on fixing this? Secondly this is a user control I downloaded from the forum (see first post).

   when you quote a post could you please do it via the «Reply With Quote» button or if it multiple post click the «»+» button then «Reply With Quote» button.
   If this thread is finished with please mark it «Resolved» by selecting «Mark thread resolved» from the «Thread tools» drop-down menu.
   https://get.cryptobrowser.site/30/4111672

   ---

10. Aug 30th, 2013, 07:38 PM

    
    

    #10

    Re: VB6 — Run-Time Error 55 — File already open File Download
    

    Post #8 covers everything I have to offer on this topic.

    ---

11. Aug 31st, 2013, 03:58 AM

    
    

    #11

    Re: VB6 — Run-Time Error 55 — File already open File Download
    

    I think the problem is with the saving of the file because when the download completes I look in the application folder and the downloaded file is only «1KB».

    Edit:

    If I comment out the save code the program works without errors except it will not save because of the commented out code! However, if I enable the code I receive the original error.

    Run-Time Error 55 — File already open File

    Edit II:

    vb Code:

    Open App.Path & "" & strFilename For Binary As #intFile
                    Put #intFile, , "hi"
                Close #intFile

    works but if I try and save the file data

    vb Code:

    Open App.Path & "" & strFilename For Binary As #intFile
                    bBytes = AsyncProp.Value
                    Put #intFile, , bBytes
                Close #intFile

    it fails and I do not understand why?

    Last edited by Nightwalker83; Aug 31st, 2013 at 06:52 AM.

    Reason: Adding more!

    when you quote a post could you please do it via the «Reply With Quote» button or if it multiple post click the «»+» button then «Reply With Quote» button.
    If this thread is finished with please mark it «Resolved» by selecting «Mark thread resolved» from the «Thread tools» drop-down menu.
    https://get.cryptobrowser.site/30/4111672

    ---

12. Aug 31st, 2013, 10:04 AM

    
    

    #12

    Re: VB6 — Run-Time Error 55 — File already open File Download
    

    Well somewhere that file is open, I would suggest adding some logging into your program at every location where you open a file and every location where you close a file. I would write to that log the filename and number that is being opened or closed and possibly the name of the sub where the open/close occurs then run the program and wait for the error to happen. Once it has go to the log and look at the last few lines. This should point out the problem to you.

    As to the 1kb issue is bBytes the entire file or is it a chunk of the data. if the latter that would explain the 1kb as you are not setting the file pointer and would be overwriting each 1kb chunk with the current one so no matter how large the incoming file is the output file would be 1kb or whatever size chunk you are using.

    ---

13. Sep 1st, 2013, 01:53 AM

    
    

    #13

    Re: VB6 — Run-Time Error 55 — File already open File Download
    

    Originally Posted by Nightwalker83
    

    I thought the amount of data was too much for the byte array and was wondering if you had any idea on fixing this? Secondly this is a user control I downloaded from the forum (see first post).

    I think Dilettante was suggesting that you’re hitting some limitations of 32 bit Architecture and that the method you’re adopting is not really suitable for file sizes that you are attempting to download.

    I’ve had a go at that 1Gb file using vbAsyncTypeFile and it still fails ‘Out of Memory’ in the AsyncReadComplete event. I guess that whatever File I/O method it’s trying to use can’t cope with such a large file. Even with that option it’s storing the downloaded data in RAM and then attemps to write it all to disk in one go, you’d have thought it would write ‘chunks’ to the file as it was going on. But, that’s the way the AsyncRead method works for the UserControl Object. I don’t see any solution for your ‘>500Mb download’ problem using this particular methodology / technique.

    As for pullng example code from the Code Bank; the fact that it’s there does not necessarily guarantee it’s quality / reliability / suitabality.

    ---

14. Sep 1st, 2013, 01:59 AM

    
    

    #14

    Re: VB6 — Run-Time Error 55 — File already open File Download
    

    Originally Posted by Doogle
    

    I think Dilettante was suggesting that you’re hitting some limitations of 32 bit Architecture and that the method you’re adopting is not really suitable for file sizes that you are attempting to download.

    I’ve had a go at that 1Gb file using vbAsyncTypeFile and it still fails ‘Out of Memory’ in the AsyncReadComplete event. I guess that whatever File I/O method it’s trying to use can’t cope with such a large file. Even with that option it’s storing the downloaded data in RAM and then attemps to write it all to disk in one go, you’d have thought it would write ‘chunks’ to the file as it was going on. But, that’s the way the AsyncRead method works for the UserControl Object. I don’t see any solution for your ‘>500Mb download’ problem using this particular methodology / technique.

    As for pullng example code from the Code Bank; the fact that it’s there does not necessarily guarantee it’s quality / reliability / suitabality.

    I guess I will search for a user control or code that can accomplish it.

    when you quote a post could you please do it via the «Reply With Quote» button or if it multiple post click the «»+» button then «Reply With Quote» button.
    If this thread is finished with please mark it «Resolved» by selecting «Mark thread resolved» from the «Thread tools» drop-down menu.
    https://get.cryptobrowser.site/30/4111672

    ---

15. Sep 1st, 2013, 02:41 AM

    
    

    #15

    Re: VB6 — Run-Time Error 55 — File already open File Download
    

    I wouldn’t normally recommend PSC but there’s an example here http://www.planet-source-code.com/vb…64914&lngWId=1 of a resonable solution. I’ve run it on the 1GB file and it downloads successfully.

    The reason I suggest it is because it’s littered with (useful) comments making it fairly easy to understand how it hangs together and thus perhaps enable you to tweak it to your needs.

    ---

16. Sep 1st, 2013, 03:12 AM

    
    

    #16

    Re: VB6 — Run-Time Error 55 — File already open File Download
    

    Originally Posted by Doogle
    

    I’ve run it on the 1GB file and it downloads successfully.

    The file I link to above? If so is it suppose to be an invalid zip file. If the answer yes then I also found Ultimate Winsock Downloader (HTTP, FTP, Files > 4GB).

    when you quote a post could you please do it via the «Reply With Quote» button or if it multiple post click the «»+» button then «Reply With Quote» button.
    If this thread is finished with please mark it «Resolved» by selecting «Mark thread resolved» from the «Thread tools» drop-down menu.
    https://get.cryptobrowser.site/30/4111672

    ---

17. Sep 2nd, 2013, 01:57 AM

    
    

    #17

    Re: VB6 — Run-Time Error 55 — File already open File Download
    

    Good question, it downloaded OK but I didn’t try to open it

    ---

18. Sep 2nd, 2013, 02:08 AM

    
    

    #18

    Re: VB6 — Run-Time Error 55 — File already open File Download
    

    Originally Posted by Doogle
    

    Good question, it downloaded OK but I didn’t try to open it

    The reason I asked was because I tried downloading that file with the code I mention in post #9 and also with the code I linked to in post #16. The size of the downloaded file was the same as if I just downloaded via a browser although, all three attempts at opening it failed with error.

    The archive is either in unknown format or damaged

    That is despite is being a .zip file.

    Edit:

    I just tried the same process with a 1MB file from that site and get the same error.

    Last edited by Nightwalker83; Sep 2nd, 2013 at 02:09 AM.

    Reason: Adding more!

    when you quote a post could you please do it via the «Reply With Quote» button or if it multiple post click the «»+» button then «Reply With Quote» button.
    If this thread is finished with please mark it «Resolved» by selecting «Mark thread resolved» from the «Thread tools» drop-down menu.
    https://get.cryptobrowser.site/30/4111672

    ---

19. Sep 2nd, 2013, 02:11 AM

    
    

    #19

    Re: VB6 — Run-Time Error 55 — File already open File Download
    

    Well, it could be that whoever put it there actually renamed it as a .zip file so that downloaders /proxys / firewalls wouldn’t block it. I haven’t a clue what it’s meant to be or who put it there, which is why I didn’t even try to open it.

    ---

20. Sep 2nd, 2013, 02:17 AM

    
    

    #20

    Re: VB6 — Run-Time Error 55 — File already open File Download
    

    If you look at http://www.thinkbroadband.com/download.html you’ll see the descriptions of the files with a note at the bottom of the page

    These files are made of random data, and although listed as zip files, will appear to be corrupt if you try and open them. MD5SUMS are available for these files.

    ---

21. Sep 2nd, 2013, 02:44 AM

    
    

    #21

    Re: VB6 — Run-Time Error 55 — File already open File Download
    

    Ah ok! I guess it proves the code worked and I will mark the thread as «Resolved» and use the code I linked to in post #16.

    when you quote a post could you please do it via the «Reply With Quote» button or if it multiple post click the «»+» button then «Reply With Quote» button.
    If this thread is finished with please mark it «Resolved» by selecting «Mark thread resolved» from the «Thread tools» drop-down menu.
    https://get.cryptobrowser.site/30/4111672

    ---

• 
• VBForums
• Visual Basic
• Visual Basic 6 and Earlier
• [RESOLVED] VB6 — Run-Time Error 55 — File already open File Download

Posting Permissions