Open files safely (Updated)

Category:

Files and Directories

Type:

Modules

Difficulty:

Beginning

Author:

Ruvenss Garcia Wilches

Version Compatibility: Visual Basic 6, Visual Basic 5

More information:

This is the fix update for the last code I submited on this version. Instructions: Create a new Module: Named as FileFunctions Copy And Paste the following code: If you want to use it on your application just include again the module file on your proyect and during the forms or Components coding type FileFunctions. and VB will list the options To open a file safely use this instructions _________________________________________________ VerNewFile = FileFunctions.VerifyLong("test.txt") 'True as exist and False as Do not Exist If VerNewFile = True Then NewFile = filefunctions.ReadLocalFile("test.txt") Do lineinput #NewFile, txt$ Loop until eof(NewFile) Close #NewFile End if __________________________________________________________ This way your applications will never open a busy file in precedent events, and the bugs percentage will be reduced. May the code be with you folks

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

Declarations:
Dim SplitPathsFolders As Variant

Code:

Public Function GetFileName(FullPath As String) As String
    SplitPathsFolders = Split(FullPath, "\")
    GetFileName = SplitPathsFolders(UBound(SplitPathsFolders))
End Function

Public Function ReadLocalFile(Path_filename As String) As Integer
    ff = FreeFile
    ReadLocalFile = ff
    Open Path_filename For Input Shared As ff
End Function

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

Public Function SplitPaths(PathFile As String) As String()
    SplitPathsFolders = Split(PathFile, "\")
    SplitPaths = SplitPathsFolders
End Function

Public Function WriteNewLocalFile(Path_filename As String) As Integer
    ff = FreeFile
    WriteNewLocalFile = ff
    Open Path_filename For Output Access Write Lock Write As ff
End Function
Public Function WriteAppend(Path_filename As String) As Integer
    ff = FreeFile
    WriteAppend = ff
    Open Path_filename For Append Shared As ff
End Function
Public Function VerifyLong(Path_filename As String) As Boolean
    On Error GoTo VerifyLong_Error
    ff = FreeFile
    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:
    MsgBox "Error detected in the program " & Err.Number & " (" & Err.Description & ") in procedure VerifyLong of FileFunctions, Please for technical support consult your dealer"
End Function