18 lines
407 B
Plaintext
18 lines
407 B
Plaintext
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
|