[RESOLVED] how to trap an error reading CDrom

[ggeu]

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 
'&#167; 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 
'&#167; Read a chunk signature 
            Do 
               On Error GoTo Error_in_File 
               Get #FNum, , ReadHead.zlfhSignature 
'&#167; Check for a local file header signature 
               If (ReadHead.zlfhSignature = ZipLocalFileHeadSig) Then 
'&#167; Ok, read the full structure 
                   Seek #FNum, Seek(FNum) - 4 
                   Get #FNum, , ReadHead 
                   With ReadHead 
'&#167; 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 
'&#167; 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 
'&#167; only filename 
                                 List_Lijst.AddItem _ 
                                    FileName & " ==>[ " & FileString & " ]" 
                                 List_Lijst.Refresh 
                              End If 
                           End If 
'&#167; No filename? 
                       Else 
                           List_Lijst.AddItem "Got file: [No name]" 
                       End If 
'&#167; 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 
'&#167; Seek to next record 
                       Seek #FNum, Seek(FNum) + SeekSize 
                  End With 
'&#167; 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

[WizBang]

Perhaps you can replace the line

On Error GoTo Error_in_File

with

If Err.Number Then
  'your error code here
End If

Besides, using GoTo to skip out of a Do...Loop is a bad idea.

[ggeu]

thanks WizBang for Your help. all works fine now.

br, ggeu