Imports System.IO
Public Class clsArgs
    Dim m_typ As String
    Property Typ() As String
        Get
            Return m_typ
        End Get
        Set(ByVal value As String)
            m_typ = value
        End Set
    End Property

    Dim m_anzahl As String
    Property Anzahl() As String
        Get
            Return m_anzahl
        End Get
        Set(ByVal value As String)
            m_anzahl = value
        End Set
    End Property

    Dim m_filename As String
    Property inputfilename() As String
        Get
            Return m_filename
        End Get
        Set(ByVal value As String)
            m_filename = value
        End Set
    End Property

    Public Function CheckArgs(ByVal args() As String) As Boolean
        Try
            Me.Typ = args(1)
            If UCase(Me.Typ) = "BL" Or UCase(Me.Typ) = "BL1" Or UCase(Me.Typ) = "EDOKA" Or UCase(Me.Typ) = "DOK" Or UCase(Me.Typ) = "EDEXBL" Or UCase(Me.Typ) = "EDEXBL1" Or UCase(Me.Typ) = "MFS" Or UCase(Me.Typ) = "DOKS" Then
                Me.inputfilename = args(2)
                If Not File.Exists(Me.inputfilename) Then
                    Console.WriteLine("Inputfile " & Me.inputfilename + " nicht vorhandne.")
                    Return False
                End If
                Return True
            End If

            If UCase(Me.Typ) = "VV" Then
                Me.inputfilename = args(2)
                If Not File.Exists(Me.inputfilename) Then
                    Console.WriteLine("Inputfile " & Me.inputfilename + " nicht vorhandne.")
                    Return False
                End If
                Return True
            End If


            If UCase(Me.Typ) <> "ZV" And UCase(Me.Typ) <> "HOST" And UCase(Me.Typ) <> "HOST1" And UCase(Me.Typ) <> "HOST2" And UCase(Me.Typ) <> "HOSTMINI" And UCase(Me.Typ) <> "HOST1MINI" Then
                Console.WriteLine("Inputfile " & Me.inputfilename + " nicht vorhandne.")
                Return False
            End If
            Me.inputfilename = args(2)
            If Not File.Exists(Me.inputfilename) Then
                Console.WriteLine("Inputfile " & Me.inputfilename + " nicht vorhandne.")
                Return False
            End If
            Return True
            If Me.Typ = "" Or Me.Anzahl = "" Or Me.inputfilename = "" Then
                Console.WriteLine("Fehlende Anzahl Argumente (Typ, Anzahl, Inputfilename)")
            End If
            Return True
        Catch ex As Exception
            Console.WriteLine("Fehlende Anzahl Argumente (Typ, Anzahl, Inputfilename)")
            Return False
        End Try

    End Function

End Class