Database Search

TechHome

• Build a Delimited Dir List for FileAppend File List
• Case Conversion Algorithm
• Change Old File and Path to New One
• Check File Date and Delete Older Files in Directory
• Check if File is Open or Exists
• Compare Directories
• Compute File Sizes
• Copy Files and Archive Attribute
• Copying Files from a Given Date
• Copying files XCOPY
• Count Keywords in Several Files
• Delete First Few Lines of a File
• Delete Temp Files Older Than
• Delimit a List of Files
• Display - Write File Contents to Screen
• Display Files in a Dialog with Case Sensitivity
• Fastest File Search Methods
• File Append for ASCII files with Ctrl-Zs in them
• File Counting and Item Counting Loop
• File List Sorted by Size
• File Mask Matching
• File or Item Extraction Loop
• FileCopy Error Handling
• FileOpen Error 1077 - Capture Additional Error Information
• FileVerInfo Constants
• FilVerInfo Returns Incorrect Version
• Get a List of Hidden Files in a Directory
• Get Date when File was Last Accessed Created Modified
• Get File Ownership in NT
• Get File Sizes Recursively
• Get Oldest or Newest File
• Get Users Home Directory
• Isolate Filename in a File Path
• List Files with Alternate Data Streams
• Merge Files with Binary Functions
• Parse Data from ASCII file using FileRead
• Progress Bar during FileCopy
• Read Part of File with BinaryRead
• Removing EOFs
• Renaming Files on an Incremental Basis
• Search for Upper Ascii Chars in File
• Sort a Flat File
• Tricky Bulk FileRename
• Write Various Quote Marks to Files

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

FileOpen Error 1077 - Capture Additional Error Information

filename = 'c:\temp\badfile.txt'

#DefineFunction OnNextError(wberrorarray)
   lasterr = wberrorarray[0]
   handlerline = wberrorarray[1]
   textstring = wberrorarray[5]
   linenumber = wberrorarray[8]

   ;Get Additional Error Information
   err = StrTrim(ItemExtract( 3, wberrorarray[6], @LF ))
   If IsInt(err)
      EBuff = BinaryAlloc(256)
      BinaryEodSet(EBuff,255)
      If 0 == DllCall(StrCat(DirWindows(1),"Kernel32.dll"),long:"FormatMessageA",long:4096,long:0,long:Err,long:0,lpbinary:EBuff,long:256,long:0)
          msg = StrCat("Error #",Err)
      Else
          msg = BinaryPeekStr(EBuff,0,256)
      EndIf
      BinaryFree(EBuff)
  Else
      msg = err
  EndIf

   errstr = StrCat("Number: ", lasterr, @LF, "String: ", textstring, @LF, "Line (",linenumber,"): '", handlerline, "'", @LF, "Additional Info: ", msg )
   Message("Error Information",errstr)
   Return(1) ; Re-arm error handler
#EndFunction



;IntControl(73,3,0,"OnNextError",0); Arm error handler

handle = FileOpen( filename, "READ")

If handle != @FALSE Then Pause( 'Notice',  'Succcessfully Opened the File' )
FileClose( handle )
Exit

Article ID:   W17871

Filename:   FileOpen Error 1077 - Capture Additional Error Information.txt

File Created: 2008:11:25:12:44:44

Last Updated: 2008:11:25:12:44:44