Visual Basic

Copy Code

 Private Function Check_EDK_Data() As Boolean
    If Param.DebugMode Then
        DivFnkt.InsertJournale("EDKB12: Start Check_EDK_Data", clsDivFnkt.Enum_InfoTyp.Information)
    End If
    Try
        'File Checken
        Dim file As New IO.FileInfo(Filename)
        tmpAction = New Action
        If Not tmpAction.Load(file) Then
            Return False
        End If
        objAvaloqDokumentWerte.init(file)
 
        If Param.DebugMode Then
            DivFnkt.InsertJournale("EDKB12: Ende Check_EDK_Data (True)", clsDivFnkt.Enum_InfoTyp.Information)
        End If
 
        Return True
    Catch ex As Exception
        DivFnkt.InsertJournale("EDKB12::Fehler:: Check_EDK_Data::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler)
        If Param.DebugMode Then
            DivFnkt.InsertJournale("EDKB12: Ende Check_EDK_Data (False)::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information)
        End If
        Return False
    End Try
 
 
 End Function