Initial commit

EDOKA_Toolset/Plugin_Doc_Retrival/DocRetrival/Globals.vb

@@ -0,0 +1,17 @@
+Imports System.IO
+Imports System.Reflection
+
+
+Module Globals
+    Public Userdata As New DataSet
+    Public UserRechte As Integer = -1
+    Public Mitarbeiternr As String
+    Public tgnummer As String
+    Public DefaultExtension As Integer = 0
+
+
+    Public Function ApplicationPath() As String
+        Return Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\"
+    End Function
+
+End Module