how to trap an error reading CDrom

[Guido Geurs]

I'm writing a program that list the contents of a CDrom and also the contents of the ZIP files.
When there is a bad Zip file on the CD, the program keeps traying to reed the file and after +- 50 times it gives the error and ends the function.
This function is called from an other function that scans al the files on the disc.
Is it possible to give an error but that the program continues with the next file ?
=============================
FUNCTION THAT SCANS THE FOLDER

Private Function Write_Files(ByVal START_FOLDER)
Dim DE_FILE As Scripting.File
Dim SUBFOLDER As Scripting.Folder
   Label_List_FolderBezig.Caption = START_FOLDER
   Label_List_FolderBezig.Refresh
   For Each DE_FILE In START_FOLDER.Files
      On Error GoTo Volgende
      Call Write_In_Textbox(DE_FILE.PATH)
Volgende:
   Next
   For Each SUBFOLDER In START_FOLDER.SubFolders
      Call Write_Files(SUBFOLDER)
   Next
End Function
 

========================================
FUNCTION WRITING THE CONTENTS OF THE FILE

Private Function Write_In_Textbox(ByVal PATH_FILENAME As String)
Dim FileName As String
Dim LENGTE As String
'§ == for listing ZIP files ==
Dim ReadHead As typZipLocalFileHead
Dim FNum As Integer
Dim FileString As String
Dim SeekSize As Long
Const ZipLocalFileHeadSig As Long = &H4034B50
'§ ================
   FileName = Right(PATH_FILENAME, Len(PATH_FILENAME) - InStrRev(PATH_FILENAME, "\"))
   If Check_add_path Then
'§ Path en filename
      If Check_AddDriveName Then
         List_Lijst.AddItem PATH_FILENAME
      Else
         List_Lijst.AddItem Mid(PATH_FILENAME, InStr(PATH_FILENAME, "\") + 1)
      End If
   Else
'§ only filename
      List_Lijst.AddItem FileName
   End If
'§ is it a ZIP file: list the contents if asked
   If (Right(FileName, 4) = ".zip" Or Right(FileName, 4) = ".ZIP") And _
      Check_ExploreZIP Then
'§ Make sure file exists
      On Error Resume Next
      LENGTE = FileLen(PATH_FILENAME)
      If LENGTE <> "" Then
'§ Get a free file handle and open the file
         FNum = FreeFile()
         On Error Resume Next
         Open PATH_FILENAME For Binary Access Read Lock Write As #FNum
'§ Read a chunk signature
            Do
               On Error GoTo Error_in_File
               Get #FNum, , ReadHead.zlfhSignature
'§ Check for a local file header signature
               If (ReadHead.zlfhSignature = ZipLocalFileHeadSig) Then
'§ Ok, read the full structure
                   Seek #FNum, Seek(FNum) - 4
                   Get #FNum, , ReadHead
                   With ReadHead
'§ Get the file name
                       If (.zlfhFileNameLength) Then
                           FileString = Space(.zlfhFileNameLength)
                           Get #FNum, , FileString
                           If Mid(FileString, Len(FileString)) <> "/" And _
                              FileString <> "" Then
                              If Check_add_path Then
'§ Path en filename
                                 If Check_AddDriveName Then
                                    List_Lijst.AddItem _
                                       PATH_FILENAME & " ==>[ " & FileString & " ]"
                                 Else
                                    List_Lijst.AddItem _
                                       Mid(PATH_FILENAME, InStr(PATH_FILENAME, "\") + 1) & _
                                       " ==>[ " & FileString & " ]"
                                 End If
                              Else
'§ only filename
                                 List_Lijst.AddItem _
                                    FileName & " ==>[ " & FileString & " ]"
                                 List_Lijst.Refresh
                              End If
                           End If
'§ No filename?
                       Else
                           List_Lijst.AddItem "Got file: [No name]"
                       End If
'§ Work out how much extra data to skip over
                       SeekSize = .zlfhCompressedSize
                       If (.zlfhExtraFieldLength) Then _
                           SeekSize = SeekSize + .zlfhExtraFieldLength
                       If (.zlfhBitFlag And &H4) Then _
                           SeekSize = SeekSize + 12
'§ Seek to next record
                       Seek #FNum, Seek(FNum) + SeekSize
                  End With
'§ Increment file count
               Else
                   Exit Do
               End If
            Loop
         Close #FNum
      Else
         MsgBox ("Error in ZIP filename: " & PATH_FILENAME)
      End If
   End If
Exit Function
Error_in_File:
   MsgBox ("There is an error reading file: " & PATH_FILENAME)
   List_Lijst.AddItem FileName & " ERROR READING FILE "
End Function