A safe way to open files

Category:

Files and Directories

Type:

Modules

Difficulty:

Beginning

Author: Ruvenss Garcia Wilches

Version Compatibility: Visual Basic 6, Visual Basic 5

More information:

This is a simple module to Read, Write, and Append files, even inside a remote network server

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
'Create a module with the name FileFunctions and Paste 'the Code windows

Code:

'---------------------------------------------------------------------------------------
' Procedure : LockFile_number
' DateTime  : 02/07/2004 19:20
' Author    : ruvenss
' Purpose   :
'---------------------------------------------------------------------------------------
'
Public Function LockFile_number(File_number)
   On Error GoTo LockFile_number_Error

Lock File_number

On Error GoTo 0
   Exit Function

LockFile_number_Error:
    'MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure LockFile_number of Module FileFunctions"
End Function

'---------------------------------------------------------------------------------------
' Procedure : ReadLocalFile
' DateTime  : 13/05/2004 12:02
' Author    : ruvenss
' Purpose   : Read Local File
'---------------------------------------------------------------------------------------
'
Public Function ReadLocalFile(Path_filename As String) As Integer
   On Error GoTo ReadLocalFile_Error

ff = FreeFile
    ReadLocalFile = ff
    Open Path_filename For Input Shared As ff

On Error GoTo 0
   Exit Function

ReadLocalFile_Error:
LogFile = FileFunctions.WriteAppend(MDIForm1.StatusBar1.Panels(2).Text + Left$(MySXP_Commands.stamp_db, 6) + ".log")
    Print #LogFile, Time$ + "Error " & Err.Number & " (" & Err.Description & ") in procedure ReadLocalFile of Module FileFunctions"
Close LogFile
End Function
'---------------------------------------------------------------------------------------
' Procedure : ReadNetFile
' DateTime  : 24/06/2004 10:34
' Author    : ruvenss
' Purpose   : Read Network File
'---------------------------------------------------------------------------------------
'
Public Function ReadNetFile(Path_filename As String) As Integer
    On Error GoTo reetry
    ff = FreeFile
Begin:
    ReadNetFile = ff
    Open Path_filename For Input Shared As ff
    Exit Function
reetry:
    ff = ff + 1
    GoTo Begin:
End Function

'---------------------------------------------------------------------------------------
' Procedure : WriteNewLocalFile
' DateTime  : 29/07/2004 17:25
' Author    : ruvenss
' Purpose   :
'---------------------------------------------------------------------------------------
'
Public Function WriteNewLocalFile(Path_filename As String) As Integer
   On Error GoTo WriteNewLocalFile_Error

ff = FreeFile
    WriteNewLocalFile = ff
    Open Path_filename For Output As ff

On Error GoTo 0
   Exit Function

WriteNewLocalFile_Error:

'LogFile = FileFunctions.WriteAppend(MDIForm1.StatusBar1.Panels(2).Text + Left$(MySXP_Commands.stamp_db, 6) + ".log")
'    Print #LogFile, Time$ + "Error " & Err.Number & " (" & Err.Description & ") in procedure Writing new local file[" + Str$(ff) + "](pathfile:" + Path_filename + ") of Module FileFunctions"
'Close LogFile

End Function
'---------------------------------------------------------------------------------------
' Procedure : WriteAppend
' DateTime  : 20/08/2004 14:37
' Author    : ruvenss
' Purpose   :
'---------------------------------------------------------------------------------------
'
Public Function WriteAppend(Path_filename As String) As Integer
   On Error GoTo WriteAppend_Error

ff = FreeFile
Begin:
    WriteAppend = ff
    
    Open Path_filename For Append Shared As ff

On Error GoTo 0
   Exit Function

WriteAppend_Error:

ff = ff + 1
End Function
Public Function VerifyLong(Path_filename As String) As Boolean
    On Error GoTo VerifyLong_Error
        ff = FreeFile
Begin1:
    Open Path_filename For Random Shared As ff
        If LOF(ff) = 0 Then VerifyLong = False Else VerifyLong = True
    Close #ff
   On Error GoTo 0
   Exit Function
VerifyLong_Error:
LogFile = FileFunctions.WriteAppend(MDIForm1.StatusBar1.Panels(2).Text + Left$(MySXP_Commands.stamp_db, 6) + ".log")
    Print #LogFile, Time$ + "Error " & Err.Number & " (" & Err.Description & ") in procedure VerifyLong of Module FileFunctions"
    Print #LogFile, "           |File being tryed to open:" + Path_filename
Close LogFile

End Function