ATR

VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb

@@ -492,6 +492,23 @@ Public Class cProgramFunctions
 
     End Sub
 
+    Public Shared Function getFilePathTypeValid(filePath) As String
+        Dim fi As New FileInfo(filePath)
+        Dim filename = fi.Name
+
+        Dim Typ = ""
+        Select Case fi.Extension.ToString.Replace(".", "").ToUpper
+            Case "PDF" : Typ = "PDF"
+            Case "XLS", "XLM", "XLSM", "XLSX", "CSV" : Typ = "EXCEL"
+            Case "DOC", "DOCX" : Typ = "WORD"
+            Case "TXT" : Typ = "TEXT"
+            Case "JPEG", "JPG", "GIF", "TFF" : Typ = "BILD"
+            Case "EXE" : MsgBox("Aviso-Anhänge: Ungültiges Datei-Format!") : Return False
+            Case Else : Typ = "SONSTIGES"
+        End Select
+        Return Typ
+    End Function
+
     Shared Function EmAilAttach(e As DragEventArgs) As String
         Try