Exiting a program from inside a function - RESOLVED

[sanctos2003]

Hi all,

Let's say I have a Sub Main procedure, that calls a function inside the Sub:

Sub Main ( )

     Call TheFunction(True)

End Sub


Function TheFunction(blnVar as Boolean)

     If blnVar = True Then
 
       ' I want to kill the Sub Main ( ) here!

     End If

End Function

I do realize that I can return a bool value from the function and then do a following check that if the return value is true then exit the Sub. I was just wondering if there is a way to kill the Sub Main from inside the Function.

Sanctos

[si_the_geek]

By far the best method is as you said, return a value to say that the calling sub should exit, eg:

Sub Main ( )
 
     If TheFunction(True) Then
       Exit Sub
     End If 
 
End Sub
 
 
Function TheFunction(blnVar as Boolean) as Boolean
 
     If blnVar = True Then
       TheFunction = True 
      End If
 
End Function

You could use End, but this creates several problems (including wasting memory until you re-boot).

[sanctos2003]

Well I have a decent solution that requires only one line of code per function call that does everything at once:

Sub Main()

    Dim log As Object
    Set log = OpenLog("C:\Test.txt")
    
    If WriteLog(log, "Hello there!", True) = True Then Exit Sub
        
    If CloseLog(log) = True Then Exit Sub


End Sub

Function OpenLog(strFilePath As String) As TextStream

    Dim objFSO As New Scripting.FileSystemObject
    Dim objLogFile As TextStream
    Const ForAppending As Integer = 8
    
    If objFSO.FileExists(strFilePath) Then
        Set objLogFile = objFSO.OpenTextFile(strFilePath, ForAppending, True)
    Else
        Set objLogFile = objFSO.CreateTextFile(strFilePath, False)
    End If
    
    objLogFile.WriteLine "Log Opened: " & _
                         Format(Now, "mm/dd/yyyy") & " " & _
                         Format(Now, "hh:mm:ss AM/PM")
    
    Set OpenLog = objLogFile
        
End Function


Function WriteLog(objLogFile As TextStream, strMessage As String, blnExit As Boolean) As Boolean
    
    objLogFile.WriteLine strMessage & Chr(13)
        
    If blnExit = True Then
        WriteLog = True
    Else
        WriteLog = False
    End If
    
End Function


Function CloseLog(objLogFile As TextStream) As Boolean

    objLogFile.WriteLine "Log Closed: " & _
                         Format(Now, "mm/dd/yyyy") & " " & _
                         Format(Now, "hh:mm:ss AM/PM")
    objLogFile.Close
    Set objLogFile = Nothing
    
    CloseLog = True
    
End Function

Thanks for all your help,

Sanctos