AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS

Browse Source
This commit is contained in:
SchreiberM
2016-10-25 14:32:55 +02:00
parent 11ec67a434
commit 7e9ca7611c
5 changed files with 1461 additions and 1005 deletions
Download Patch File Download Diff File Expand all files Collapse all files

113
app/DD-Record-Organiser/ClassImport_Windream.vb
View File

@@ -1,5 +1,6 @@
Imports System.IO Imports System.IO
Imports System.Globalization Imports System.Globalization
Imports WINDREAMLib
Public Class ClassImport_Windream Public Class ClassImport_Windream
Public Shared Function Import_File(QuellDatei_Path As String, DOCTYPE_ID As Integer) Public Shared Function Import_File(QuellDatei_Path As String, DOCTYPE_ID As Integer)
@@ -123,6 +124,10 @@ Public Class ClassImport_Windream
End Function End Function
Public Shared Function Name_Generieren(DocTypeID As Integer) Public Shared Function Name_Generieren(DocTypeID As Integer)
If ClassWindream.Create_Session = False Then
Return False
End If
Try Try
Dim FILE_DELIMITER, VERSION_DELIMITER, _WDOBJECTTYPE, _NewFileString As String Dim FILE_DELIMITER, VERSION_DELIMITER, _WDOBJECTTYPE, _NewFileString As String
Dim sql As String = "select VERSION_DELIMITER, FILE_DELIMITER FROM TBDD_MODULES where UPPER(NAME) = UPPER('Global-Indexer')" Dim sql As String = "select VERSION_DELIMITER, FILE_DELIMITER FROM TBDD_MODULES where UPPER(NAME) = UPPER('Global-Indexer')"
@@ -131,7 +136,6 @@ Public Class ClassImport_Windream
VERSION_DELIMITER = DT1.Rows(0).Item("VERSION_DELIMITER") VERSION_DELIMITER = DT1.Rows(0).Item("VERSION_DELIMITER")
Dim err As Boolean = False Dim err As Boolean = False
Dim folder_Created As Boolean = False
Dim Zielordner As String Dim Zielordner As String
Dim extension As String = Path.GetExtension(CURRENT_FILENAME) Dim extension As String = Path.GetExtension(CURRENT_FILENAME)
Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_DOKUMENTART WHERE GUID = " & DocTypeID) Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_DOKUMENTART WHERE GUID = " & DocTypeID)
@@ -139,7 +143,7 @@ Public Class ClassImport_Windream
'sql_history_Index_Values = "" 'sql_history_Index_Values = ""
Dim AnzahlIndexe As Integer = 1 Dim AnzahlIndexe As Integer = 1
_WDOBJECTTYPE = DT.Rows(0).Item("OBJEKTTYP") _WDOBJECTTYPE = DT.Rows(0).Item("OBJEKTTYP")
If folder_Created = False Then
' Den Zielordner erstellen ' Den Zielordner erstellen
Zielordner = DT.Rows(0).Item("ZIEL_PFAD") Zielordner = DT.Rows(0).Item("ZIEL_PFAD")
@@ -161,19 +165,38 @@ Public Class ClassImport_Windream
Zielordner = Zielordner & "\" & CURRENT_SUBFOLDER Zielordner = Zielordner & "\" & CURRENT_SUBFOLDER
End If End If
If Directory.Exists(Zielordner) = False Then
'Try to create the directory.
Try Try
Directory.CreateDirectory(Zielordner) Select Case ClassWindream.WD_PATH_EXISTS(Zielordner.Substring(2))
Catch ex As Exception Case False
ClassLogger.Add(" - Unexpected Error in Creating Target Folder: " & vbNewLine & ex.Message) Dim split() As String = Zielordner.Split("\")
MsgBox("Unexpected Error in Creating Target Folder: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) Dim Path_Combined As String = ""
For Each s As String In split
Path_Combined &= s & "\"
If Path_Combined <> "W:\" Then
Try
Select Case ClassWindream.WD_PATH_EXISTS(Path_Combined.Substring(2))
Case False
ClassWindream.oSession.GetNewWMObjectFS(2, Path_Combined.Substring(2), 0) 'WMEntityFolder,WMObjectEditModeNoEdit)
Case -10
Return False Return False
End Select
Catch ex As Exception
If Not ex.Message.Contains("Filename exists!") Then
ClassLogger.Add(String.Format(">> Could not create folder-part ({0}): " & ex.Message, Path_Combined.Substring(2)), True)
Return False
End If
End Try End Try
End If End If
folder_Created = True Next
Case -10
Return False
End Select
Catch ex As Exception
If Not ex.Message.Contains("Filename exists!") Then
ClassLogger.Add(String.Format(">> Could not create folder ({0}): " & ex.Message, Zielordner.Substring(2)), False)
Return False
End If End If
End Try
'#### '####
' Regulären Ausdruck zum Auslesen der Indexe definieren ' Regulären Ausdruck zum Auslesen der Indexe definieren
Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}" Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
@@ -409,34 +432,68 @@ Public Class ClassImport_Windream
Dim _neuername As String = DATEINAME.Replace(VERSION_DELIMITER, "") Dim _neuername As String = DATEINAME.Replace(VERSION_DELIMITER, "")
'Dim MoveFilename As String = DATEINAME.Replace(element.Value, "") 'Dim MoveFilename As String = DATEINAME.Replace(element.Value, "")
_NewFileString = _neuername _NewFileString = _neuername
'Überprüfen ob File existiert Const WMCOMEventWMSessionNeedIndex = 1
If File.Exists(_neuername & extension) = False Then 'windream Objekte erstellen ohne Indexierungs-Event
If LogErrorsOnly = False Then ClassLogger.Add(" >> File is not existing", False) ClassWindream.oSession.SwitchEvents(WMCOMEventWMSessionNeedIndex, False)
Else 'Überprüfen ob File existiert
Dim msg As String Dim FILE_EXISTS_IN_WD As Boolean
msg = "Achtung: die Datei existiert bereits!" & vbNewLine & _neuername & extension & vbNewLine & "Wollen Sie die vorhandene Datei ersetzen?" If LogErrorsOnly = False Then ClassLogger.Add(" >> Versuch auf die Datei in W: zuzugreifen und zu sperren...", False)
If USER_LANGUAGE <> "de-DE" Then FILE_EXISTS_IN_WD = ClassWindream.oSession.WMObjectExists(WINDREAMLib.WMEntity.WMEntityDocument, _NewFileString.Substring(2) & extension, 0, 0)
msg = "Attention: there is already a file with this name!" & vbNewLine & _neuername & extension & vbNewLine & "Would You like to replace this file with the actual one?" Dim WMObject
End If If FILE_EXISTS_IN_WD = False Then
Dim result As MsgBoxResult If LogErrorsOnly = False Then ClassLogger.Add(" >> Datei ist NICHT vorhanden, kann also einfach neu angelegt werden", False)
result = MessageBox.Show(msg, "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) '==================================================================
If result = MsgBoxResult.Yes Then ' create an object
'==================================================================
Try Try
File.Delete(_neuername & extension) WMObject = ClassWindream.oSession.GetNewWMObjectFS(WINDREAMLib.WMEntity.WMEntityDocument, _NewFileString.Substring(2) & extension, 31)
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in Replace file: " & ex.Message, MsgBoxStyle.Critical) ClassLogger.Add("Could not create the windremObject(File) '" & _NewFileString.Substring(2) & extension & "': " & ex.Message, True)
err = True Return False
End Try End Try
Else Else
Do While File.Exists(_neuername & extension) ' wenn auf die Datei zugeriffen werden konnte ist sie bereits vorhanden -> Datum anhängen
If LogErrorsOnly = False Then ClassLogger.Add(" >> Es konnte zugegriffen werden -> DATEI IST BEREITS VORHANDEN", False)
Do While FILE_EXISTS_IN_WD = True
If LogErrorsOnly = False Then ClassLogger.Add(" >> Attention File '" & _neuername & extension & "' is existing!", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Attention File '" & _neuername & extension & "' is existing!", False)
version = version + 1
_neuername = Stammname & VERSION_DELIMITER & version _neuername = Stammname & VERSION_DELIMITER & version
_NewFileString = _neuername _NewFileString = _neuername
FILE_EXISTS_IN_WD = ClassWindream.oSession.WMObjectExists(WINDREAMLib.WMEntity.WMEntityDocument, _NewFileString.Substring(2) & extension, 0, 0)
version = version + 1
Loop Loop
Try
WMObject = ClassWindream.oSession.GetNewWMObjectFS(WINDREAMLib.WMEntity.WMEntityDocument, _NewFileString.Substring(2) & extension, 31)
Catch ex As Exception
ClassLogger.Add("Could not create the windremObject(File) COPY '" & _NewFileString.Substring(2) & extension & "': " & ex.Message, True)
Return False
End Try
If LogErrorsOnly = False Then ClassLogger.Add(" >> WMObject created after versioning", False)
End If End If
End If ClassWindream.STREAM_OBJECT = Nothing
ClassWindream.STREAM_OBJECT = WMObject
'If File.Exists(_neuername & extension) = False Then
' If LogErrorsOnly = False Then ClassLogger.Add(" >> File is not existing", False)
'Else
' Dim msg As String
' msg = "Achtung: die Datei existiert bereits!" & vbNewLine & _neuername & extension & vbNewLine & "Wollen Sie die vorhandene Datei ersetzen?"
' If USER_LANGUAGE <> "de-DE" Then
' msg = "Attention: there is already a file with this name!" & vbNewLine & _neuername & extension & vbNewLine & "Would You like to replace this file with the actual one?"
' End If
' Dim result As MsgBoxResult
' result = MessageBox.Show(msg, "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
' If result = MsgBoxResult.Yes Then
' Try
' File.Delete(_neuername & extension)
' Catch ex As Exception
' MsgBox("Unexpected Error in Replace file: " & ex.Message, MsgBoxStyle.Critical)
' err = True
' End Try
' Else
' End If
'End If
Catch ex As Exception Catch ex As Exception
ClassLogger.Add(" - Error in Versioning file - Error: " & vbNewLine & ex.Message) ClassLogger.Add(" - Error in Versioning file - Error: " & vbNewLine & ex.Message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Versioning file:") MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Versioning file:")

221
app/DD-Record-Organiser/ClassWindream.vb
View File

@@ -34,6 +34,18 @@ Public Class ClassWindream
Const WMObjectVariableValueTypeVector = &H1000 Const WMObjectVariableValueTypeVector = &H1000
Const WMObjectVariableValueTypeFulltext = &H2000 Const WMObjectVariableValueTypeFulltext = &H2000
Const WMObjectVariableValueTypeDefaultValue = &H4000 Const WMObjectVariableValueTypeDefaultValue = &H4000
Const REL_Document_AccessRight = "AccessRight"
Const COL_AccessRight_AccessRightID = "dwAccessRightID"
Const COL_AccessRight_AccessRight = "dwAccessRight"
Const REL_AccessRight_UserOrGroup = "AccessRightUserOrGroup"
Const WMAccessRightUndefined = 0
Const WMAccessRightRead = 1
Const WMAccessRightWrite = 2
Const WMAccessRightAdmin = 4
Const WMAccessRightAllRights = 7
#End Region #End Region
#Region "+++++ Variablen +++++" #Region "+++++ Variablen +++++"
@@ -45,8 +57,10 @@ Public Class ClassWindream
Private Shared oController As New WMOSearchController Private Shared oController As New WMOSearchController
Public Shared _WDObjekttyp As String Public Shared _WDObjekttyp As String
Private Shared aktWMObject As WINDREAMLib.WMObject Private Shared aktWMObject As WINDREAMLib.WMObject
Public Shared STREAM_OBJECT As WINDREAMLib.WMObject
Public Shared WD_SERVER Public Shared WD_SERVER
Public Shared CURRENT_WMObject As WMObject Public Shared CURRENT_WMObject As WMObject
Private Shared dwAccessRight
#End Region #End Region
@@ -590,50 +604,111 @@ Public Class ClassWindream
End Try End Try
End Function End Function
Public Shared Function Create_Session()
Try
Dim Session
Dim dmsServer As String
Dim wmbrwsr
Dim Connect
If LogErrorsOnly = False Then ClassLogger.Add(" >> Stream_File wurde gestartet", False)
wmbrwsr = CreateObject("WMOBrws.ServerBrowser")
'==================================================================
' get the current DMS-server to log in
'==================================================================
dmsServer = wmbrwsr.GetCurrentServer
If LogErrorsOnly = False Then ClassLogger.Add(" >> Connect definieren: CreateObject('Windream.WMConnect')", False)
Try
Connect = CreateObject("Windream.WMConnect")
Catch ex As Exception
ClassLogger.Add("Error in Create windreamConnect: " & ex.Message, True)
Return False
End Try
'==================================================================
' create a session
'==================================================================
'Prüfen ob sich personifiziert angemeldet werden muss?
Try
If FAU_AD_USER <> "" Then
Session = GetWMSessionAsUser(FAU_AD_DOMAIN, FAU_AD_SERVER, FAU_AD_USER, FAU_AD_USER_PW)
Else
Session = CreateObject("Windream.WMSession", dmsServer)
End If
Catch ex As Exception
ClassLogger.Add("Error in Create windream Session: " & ex.Message, True)
Return False
End Try
'==================================================================
' login session
'==================================================================
Try
Connect.LoginSession(Session)
Dim LoggedIn = Session.aLoggedin
If LoggedIn Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Login ok. You are logged in as '" & Connect.UserName & "' on Server '" & dmsServer, False)
oSession = Session
Return True
'MsgBox("Login ok. You are logged in as '" + Connect.UserName + "' on Server '" + dmsServer + "'")
Else
ClassLogger.Add(">> Login on dms-Server failed", False)
Return False
' MsgBox("Login failed. ")
End If
Catch ex As Exception
ClassLogger.Add(">> Persionalized session - User is already logged in!'" & Err.Description & "'")
If Not IsNothing(oSession) Then
Return True
End If
End Try
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Create Session: " & ex.Message, True)
Return False
End Try
End Function
Public Shared Function Stream_File(ByVal filenameQuelle As String, ByVal zielpfad As String, Optional ImportAll As Boolean = False) Public Shared Function Stream_File(ByVal filenameQuelle As String, ByVal zielpfad As String, Optional ImportAll As Boolean = False)
Try Try
aktWMObject = Nothing aktWMObject = Nothing
If My.Computer.FileSystem.DirectoryExists(zielpfad) = False Then If LogErrorsOnly = False Then ClassLogger.Add(" >> Stream_File wurde gestartet", False)
My.Computer.FileSystem.CreateDirectory(zielpfad) If IsNothing(oSession) Then
ClassLogger.Add(">> Zielverzeichnis neu erzeugt!", False) If Create_Session() = False Then
Return False
End If End If
End If
Dim sdsd = WMEntityFolder
Const STREAM_BinaryObject = "BinaryObject" Const STREAM_BinaryObject = "BinaryObject"
If LogErrorsOnly = False Then ClassLogger.Add(" >> Stream_File wurde gestartet", False)
Dim endgültigerDateiname As String = "" Dim endgültigerDateiname As String = ""
' Objekt für Datei und Zielverzeichnis anlegen ' Objekt für Datei und Zielverzeichnis anlegen
' Dim Quelldatei_Name As String = Path.GetFileName(filenameQuelle) ' Dim Quelldatei_Name As String = Path.GetFileName(filenameQuelle)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Quelldatei gelesen", False)
'######## '########
Dim Zielverzeichnis As String = zielpfad Dim Zielverzeichnis As String = zielpfad
endgültigerDateiname = CURRENT_NEWFILENAME.Substring(2) endgültigerDateiname = CURRENT_NEWFILENAME.Substring(2)
If My.Computer.FileSystem.DirectoryExists(Zielverzeichnis) Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> targetPath exisitiert", False)
' Überprüfen ob der zu Kopieren notwendige Speicherplatz auf Ziellaufwerk vorhanden ist
Dim dvr As New DriveInfo(vWLaufwerk & ":")
Dim freeSpace = dvr.TotalFreeSpace
Dim info As New FileInfo(filenameQuelle) '' Überprüfen ob der zu Kopieren notwendige Speicherplatz auf Ziellaufwerk vorhanden ist
' Get length of the file. 'Dim dvr As New DriveInfo(vWLaufwerk & ":")
Dim length As Long = info.Length 'Dim freeSpace = dvr.TotalFreeSpace
If freeSpace < length Then
MsgBox(" Auf dem Zielverzeichnis ist nicht genug Speicherplatz zum Übertragen frei.", MsgBoxStyle.Exclamation, "Nicht genug Speicherplatz") 'Dim info As New FileInfo(filenameQuelle)
Return -10 '' Get length of the file.
End If Dim length As Long '= info.Length
'If freeSpace < length Then
' MsgBox(" Auf dem Zielverzeichnis ist nicht genug Speicherplatz zum Übertragen frei.", MsgBoxStyle.Exclamation, "Nicht genug Speicherplatz")
' Return -10
'End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> Datei kopieren von " & filenameQuelle & " nach " & endgültigerDateiname & ".", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Datei kopieren von " & filenameQuelle & " nach " & endgültigerDateiname & ".", False)
Dim Connect
Dim Session
Dim WMObject Dim WMObject
Dim aFileIO Dim aFileIO
Dim aWMStream Dim aWMStream
Dim wmbrwsr
Dim dmsServer As String
If LogErrorsOnly = False Then ClassLogger.Add(" >> Connect definieren: CreateObject('Windream.WMConnect')", False)
Connect = CreateObject("Windream.WMConnect")
aFileIO = New WMOTOOLLib.WMFileIO aFileIO = New WMOTOOLLib.WMFileIO
'If My.Settings.DLL_WMOTOOL = "" Then 'If My.Settings.DLL_WMOTOOL = "" Then
' aFileIO = New WMOTOOLLib.WMFileIO ' aFileIO = New WMOTOOLLib.WMFileIO
@@ -643,49 +718,16 @@ Public Class ClassWindream
' If LogErrorsOnly = False Then ClassLogger.Add(" >> Verwendeter Verweis aus Anwendungsstring: '" & My.Settings.DLL_WMOTOOL & "'", False) ' If LogErrorsOnly = False Then ClassLogger.Add(" >> Verwendeter Verweis aus Anwendungsstring: '" & My.Settings.DLL_WMOTOOL & "'", False)
'End If 'End If
wmbrwsr = CreateObject("WMOBrws.ServerBrowser")
'==================================================================
' get the current DMS-server to log in
'==================================================================
dmsServer = wmbrwsr.GetCurrentServer
'==================================================================
' create a session
'==================================================================
'Prüfen ob sich personifiziert angemeldet werden muss?
If FAU_AD_USER <> "" Then
Session = GetWMSessionAsUser(FAU_AD_DOMAIN, FAU_AD_SERVER, FAU_AD_USER, FAU_AD_USER_PW)
Else
Session = CreateObject("Windream.WMSession", dmsServer)
End If
'==================================================================
' login session
'==================================================================
Try
Connect.LoginSession(Session)
Dim LoggedIn = Session.aLoggedin
If LoggedIn Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Login ok. You are logged in as '" & Connect.UserName & "' on Server '" & dmsServer, False)
'MsgBox("Login ok. You are logged in as '" + Connect.UserName + "' on Server '" + dmsServer + "'")
Else
ClassLogger.Add(">> Login on dms-Server failed", False)
' MsgBox("Login failed. ")
End If
Catch ex As Exception
ClassLogger.Add(">> Persionalized session - User is already logged in!'" & Err.Description & "'")
End Try
Const WMCOMEventWMSessionNeedIndex = 1
'windream Objekte erstellen ohne Indexierungs-Event
Session.SwitchEvents(WMCOMEventWMSessionNeedIndex, False)
oSession = Session
'================================================================== '==================================================================
' check if files exist ' check if files exist
'================================================================== '==================================================================
If Not IsNothing(STREAM_OBJECT) Then
WMObject = STREAM_OBJECT
Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> ÜBERPRÜFTER DATEINAME => " & endgültigerDateiname, False) If LogErrorsOnly = False Then ClassLogger.Add(" >> ÜBERPRÜFTER DATEINAME => " & endgültigerDateiname, False)
Dim wdFilexists As Boolean Dim wdFilexists As Boolean
If LogErrorsOnly = False Then ClassLogger.Add(" >> Versuch auf die Datei in W: zuzugreifen und zu sperren...", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Versuch auf die Datei in W: zuzugreifen und zu sperren...", False)
wdFilexists = Session.WMObjectExists(WMEntityDocument, endgültigerDateiname, 0, 0) wdFilexists = oSession.WMObjectExists(WMEntityDocument, endgültigerDateiname, 0, 0)
If wdFilexists = False Then If wdFilexists = False Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Datei ist NICHT vorhanden, kann also einfach neu angelegt werden", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Datei ist NICHT vorhanden, kann also einfach neu angelegt werden", False)
@@ -693,7 +735,7 @@ Public Class ClassWindream
'================================================================== '==================================================================
' create an object ' create an object
'================================================================== '==================================================================
WMObject = Session.GetNewWMObjectFS(WMEntityDocument, endgültigerDateiname, WMObjectEditModeObject) WMObject = oSession.GetNewWMObjectFS(WMEntityDocument, endgültigerDateiname, WMObjectEditModeObject)
If Err.Number > 0 Then If Err.Number > 0 Then
ClassLogger.Add(" FEHLER: WMObject konnte nicht erzeugt werden - Error: '" & Err.Description & "'") ClassLogger.Add(" FEHLER: WMObject konnte nicht erzeugt werden - Error: '" & Err.Description & "'")
'MsgBox(Err.Description) 'MsgBox(Err.Description)
@@ -704,13 +746,15 @@ Public Class ClassWindream
If LogErrorsOnly = False Then ClassLogger.Add(" >> Es konnte zugegriffen werden -> DATEI IST BEREITS VORHANDEN", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Es konnte zugegriffen werden -> DATEI IST BEREITS VORHANDEN", False)
Err.Clear() Err.Clear()
WMObject = Session.GetNewWMObjectFS(WMEntityDocument, endgültigerDateiname, WMObjectEditModeObject) WMObject = oSession.GetNewWMObjectFS(WMEntityDocument, endgültigerDateiname, WMObjectEditModeObject)
If Err.Number > 0 Then If Err.Number > 0 Then
ClassLogger.Add(" FEHLER: Neues WMObject (Kopie) konnte nicht erzeugt werden - Error: '" & Err.Description & "'") ClassLogger.Add(" FEHLER: Neues WMObject (Kopie) konnte nicht erzeugt werden - Error: '" & Err.Description & "'")
'MsgBox(Err.Description) 'MsgBox(Err.Description)
End If End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> WMObject zugewiesen", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> WMObject zugewiesen", False)
End If End If
End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> ENDGÜLTIGER DATEINAME => " & endgültigerDateiname, False) If LogErrorsOnly = False Then ClassLogger.Add(" >> ENDGÜLTIGER DATEINAME => " & endgültigerDateiname, False)
If WMObject IsNot Nothing Then If WMObject IsNot Nothing Then
' lock object for file system access (to change the file itself) ' lock object for file system access (to change the file itself)
@@ -838,16 +882,21 @@ Public Class ClassWindream
Else Else
Return False Return False
End If End If
Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> targetPath exisitiert NICHT", False)
Return False
End If
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in Stream File: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in Stream File: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return False Return False
End Try End Try
End Function
Public Shared Function WD_PATH_EXISTS(substring_path As String)
Try
Dim folder_exists = oSession.WMObjectExists(WMEntityFolder, substring_path, 0, 0)
Return folder_exists
Catch ex As Exception
ClassLogger.Add(String.Format("Unexpected error in WD_PATH_EXISTS ({0}): {1} ", substring_path, ex.Message), True)
Return -10
End Try
End Function End Function
Public Shared Function Delete_WDFile(ByVal WD_File As String) Public Shared Function Delete_WDFile(ByVal WD_File As String)
Try Try
@@ -2092,4 +2141,42 @@ Public Class ClassWindream
End Try End Try
End Function End Function
Public Shared Function Get_File_Rights(filepath As String)
Try
If IsNothing(oSession) Then
If Init() = False Then
MsgBox("Error in Init windream - check the log for further information!", MsgBoxStyle.Exclamation)
Return Nothing
End If
End If
Dim oWMObject As WINDREAMLib.WMObject
oWMObject = oSession.GetWMObjectByPath(WMEntityDocumentAndMap, filepath.Substring(2))
Dim AccessRightsObject
AccessRightsObject = oWMObject.GetWMObjectRelationByName(REL_Document_AccessRight)
Dim _msg As String
For Each aRightRelation In AccessRightsObject
dwAccessRight = aRightRelation.GetVariableValue(COL_AccessRight_AccessRight) 'COL_AccessRight_AccessRight)
Dim UserGroupRelation = aRightRelation.GetWMObjectRelationByName(REL_AccessRight_UserOrGroup)
Dim UserOrGroup = UserGroupRelation.item(0).aName
If UserOrGroup.ToString.ToLower.Contains(Environment.UserName.ToLower) Then
If dwAccessRight And WMAccessRightRead Then
_msg = "R"
End If
If dwAccessRight And WMAccessRightWrite Then
_msg = _msg & "W"
End If
If dwAccessRight And WMAccessRightAdmin Then
_msg = _msg & "A"
End If
End If
Next
Return _msg
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Get_File_Rights: " & ex.Message)
Return Nothing
End Try
End Function
End Class End Class

165
app/DD-Record-Organiser/frmConstructor_Main.Designer.vb generated
View File

@@ -24,9 +24,9 @@ Partial Class frmConstructor_Main
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConstructor_Main)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConstructor_Main))
Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() Dim GridLevelNode4 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() Dim GridLevelNode5 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode3 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() Dim GridLevelNode6 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Me.SplitContainerMain = New DevExpress.XtraEditors.SplitContainerControl() Me.SplitContainerMain = New DevExpress.XtraEditors.SplitContainerControl()
Me.SplitContainerTop = New DevExpress.XtraEditors.SplitContainerControl() Me.SplitContainerTop = New DevExpress.XtraEditors.SplitContainerControl()
Me.TreeViewMain = New System.Windows.Forms.TreeView() Me.TreeViewMain = New System.Windows.Forms.TreeView()
@@ -69,25 +69,26 @@ Partial Class frmConstructor_Main
Me.TabWindream = New DevExpress.XtraTab.XtraTabPage() Me.TabWindream = New DevExpress.XtraTab.XtraTabPage()
Me.GridControlDocSearch = New DevExpress.XtraGrid.GridControl() Me.GridControlDocSearch = New DevExpress.XtraGrid.GridControl()
Me.ContextMenuStripResultFiles = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStripResultFiles = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.DateiÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.docCM_Open = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator()
Me.CopyToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.docCM_Copy = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator10 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator10 = New System.Windows.Forms.ToolStripSeparator()
Me.UmbenennenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.docCM_Rename = New System.Windows.Forms.ToolStripMenuItem()
Me.tsTextBoxRenameFile = New System.Windows.Forms.ToolStripTextBox() Me.tsTextBoxRenameFile = New System.Windows.Forms.ToolStripTextBox()
Me.TSMIDisplayname = New System.Windows.Forms.ToolStripMenuItem() Me.docCM_RenameDisplay = New System.Windows.Forms.ToolStripMenuItem()
Me.tstbDisplayname = New System.Windows.Forms.ToolStripTextBox() Me.tstbDisplayname = New System.Windows.Forms.ToolStripTextBox()
Me.TSMI_inWork = New System.Windows.Forms.ToolStripMenuItem() Me.docCM_InWork = New System.Windows.Forms.ToolStripMenuItem()
Me.TSMI_linkRecord = New System.Windows.Forms.ToolStripMenuItem() Me.docCM_linkRecord = New System.Windows.Forms.ToolStripMenuItem()
Me.tsmiRights = New System.Windows.Forms.ToolStripMenuItem() Me.docCM_CheckRights = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripMI_DeleteFile = New System.Windows.Forms.ToolStripMenuItem() Me.docCM_DeleteFile = New System.Windows.Forms.ToolStripMenuItem()
Me.TsMI_DocRemoveLink = New System.Windows.Forms.ToolStripMenuItem() Me.docCM_RemoveLink = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator9 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator9 = New System.Windows.Forms.ToolStripSeparator()
Me.PropertiesToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.docCM_ResetView = New System.Windows.Forms.ToolStripMenuItem()
Me.docCM_showGridSearch = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator16 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator16 = New System.Windows.Forms.ToolStripSeparator()
Me.AnsichtZurücksetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.docCM_PropertiesFile = New System.Windows.Forms.ToolStripMenuItem()
Me.SucheAnzeigenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() Me.docCM_GetRights = New System.Windows.Forms.ToolStripMenuItem()
Me.GridViewDoc_Search = New DevExpress.XtraGrid.Views.Grid.GridView() Me.GridViewDoc_Search = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.ToolStripDokumente = New System.Windows.Forms.ToolStrip() Me.ToolStripDokumente = New System.Windows.Forms.ToolStrip()
Me.tslblWindreamView = New System.Windows.Forms.ToolStripLabel() Me.tslblWindreamView = New System.Windows.Forms.ToolStripLabel()
@@ -311,12 +312,12 @@ Partial Class frmConstructor_Main
Me.GridControlMain.AllowDrop = True Me.GridControlMain.AllowDrop = True
Me.GridControlMain.ContextMenuStrip = Me.ContextMenuGrid Me.GridControlMain.ContextMenuStrip = Me.ContextMenuGrid
resources.ApplyResources(Me.GridControlMain, "GridControlMain") resources.ApplyResources(Me.GridControlMain, "GridControlMain")
GridLevelNode1.LevelTemplate = Me.grvwGrid GridLevelNode4.LevelTemplate = Me.grvwGrid
GridLevelNode1.RelationName = "Level1" GridLevelNode4.RelationName = "Level1"
GridLevelNode2.LevelTemplate = Me.grvwCarousel GridLevelNode5.LevelTemplate = Me.grvwCarousel
GridLevelNode2.RelationName = "Level2" GridLevelNode5.RelationName = "Level2"
GridLevelNode3.RelationName = "Level3" GridLevelNode6.RelationName = "Level3"
Me.GridControlMain.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1, GridLevelNode2, GridLevelNode3}) Me.GridControlMain.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode4, GridLevelNode5, GridLevelNode6})
Me.GridControlMain.MainView = Me.grvwTiles Me.GridControlMain.MainView = Me.grvwTiles
Me.GridControlMain.Name = "GridControlMain" Me.GridControlMain.Name = "GridControlMain"
Me.GridControlMain.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwGrid, Me.grvwCarousel, Me.grvwTiles}) Me.GridControlMain.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwGrid, Me.grvwCarousel, Me.grvwTiles})
@@ -517,36 +518,36 @@ Partial Class frmConstructor_Main
' '
'ContextMenuStripResultFiles 'ContextMenuStripResultFiles
' '
Me.ContextMenuStripResultFiles.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiÖffnenToolStripMenuItem, Me.ToolStripSeparator7, Me.CopyToolStripMenuItem, Me.ToolStripSeparator10, Me.UmbenennenToolStripMenuItem, Me.TSMIDisplayname, Me.TSMI_inWork, Me.TSMI_linkRecord, Me.tsmiRights, Me.ToolStripSeparator8, Me.ToolStripMI_DeleteFile, Me.TsMI_DocRemoveLink, Me.ToolStripSeparator9, Me.PropertiesToolStripMenuItem, Me.ToolStripSeparator16, Me.AnsichtZurücksetzenToolStripMenuItem, Me.SucheAnzeigenToolStripMenuItem1}) Me.ContextMenuStripResultFiles.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.docCM_Open, Me.ToolStripSeparator7, Me.docCM_Copy, Me.ToolStripSeparator10, Me.docCM_Rename, Me.docCM_RenameDisplay, Me.docCM_InWork, Me.docCM_linkRecord, Me.docCM_CheckRights, Me.ToolStripSeparator8, Me.docCM_DeleteFile, Me.docCM_RemoveLink, Me.ToolStripSeparator9, Me.docCM_ResetView, Me.docCM_showGridSearch, Me.docCM_GetRights, Me.ToolStripSeparator16, Me.docCM_PropertiesFile})
Me.ContextMenuStripResultFiles.Name = "ContextMenuStripResultFiles" Me.ContextMenuStripResultFiles.Name = "ContextMenuStripResultFiles"
resources.ApplyResources(Me.ContextMenuStripResultFiles, "ContextMenuStripResultFiles") resources.ApplyResources(Me.ContextMenuStripResultFiles, "ContextMenuStripResultFiles")
' '
'DateiÖffnenToolStripMenuItem 'docCM_Open
' '
Me.DateiÖffnenToolStripMenuItem.Name = "DateiÖffnenToolStripMenuItem" Me.docCM_Open.Name = "docCM_Open"
resources.ApplyResources(Me.DateiÖffnenToolStripMenuItem, "DateiÖffnenToolStripMenuItem") resources.ApplyResources(Me.docCM_Open, "docCM_Open")
' '
'ToolStripSeparator7 'ToolStripSeparator7
' '
Me.ToolStripSeparator7.Name = "ToolStripSeparator7" Me.ToolStripSeparator7.Name = "ToolStripSeparator7"
resources.ApplyResources(Me.ToolStripSeparator7, "ToolStripSeparator7") resources.ApplyResources(Me.ToolStripSeparator7, "ToolStripSeparator7")
' '
'CopyToolStripMenuItem 'docCM_Copy
' '
Me.CopyToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.Copy_6524 Me.docCM_Copy.Image = Global.DD_Record_Organiser.My.Resources.Resources.Copy_6524
Me.CopyToolStripMenuItem.Name = "CopyToolStripMenuItem" Me.docCM_Copy.Name = "docCM_Copy"
resources.ApplyResources(Me.CopyToolStripMenuItem, "CopyToolStripMenuItem") resources.ApplyResources(Me.docCM_Copy, "docCM_Copy")
' '
'ToolStripSeparator10 'ToolStripSeparator10
' '
Me.ToolStripSeparator10.Name = "ToolStripSeparator10" Me.ToolStripSeparator10.Name = "ToolStripSeparator10"
resources.ApplyResources(Me.ToolStripSeparator10, "ToolStripSeparator10") resources.ApplyResources(Me.ToolStripSeparator10, "ToolStripSeparator10")
' '
'UmbenennenToolStripMenuItem 'docCM_Rename
' '
Me.UmbenennenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsTextBoxRenameFile}) Me.docCM_Rename.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsTextBoxRenameFile})
Me.UmbenennenToolStripMenuItem.Name = "UmbenennenToolStripMenuItem" Me.docCM_Rename.Name = "docCM_Rename"
resources.ApplyResources(Me.UmbenennenToolStripMenuItem, "UmbenennenToolStripMenuItem") resources.ApplyResources(Me.docCM_Rename, "docCM_Rename")
' '
'tsTextBoxRenameFile 'tsTextBoxRenameFile
' '
@@ -555,11 +556,11 @@ Partial Class frmConstructor_Main
Me.tsTextBoxRenameFile.Name = "tsTextBoxRenameFile" Me.tsTextBoxRenameFile.Name = "tsTextBoxRenameFile"
resources.ApplyResources(Me.tsTextBoxRenameFile, "tsTextBoxRenameFile") resources.ApplyResources(Me.tsTextBoxRenameFile, "tsTextBoxRenameFile")
' '
'TSMIDisplayname 'docCM_RenameDisplay
' '
Me.TSMIDisplayname.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tstbDisplayname}) Me.docCM_RenameDisplay.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tstbDisplayname})
Me.TSMIDisplayname.Name = "TSMIDisplayname" Me.docCM_RenameDisplay.Name = "docCM_RenameDisplay"
resources.ApplyResources(Me.TSMIDisplayname, "TSMIDisplayname") resources.ApplyResources(Me.docCM_RenameDisplay, "docCM_RenameDisplay")
' '
'tstbDisplayname 'tstbDisplayname
' '
@@ -568,66 +569,71 @@ Partial Class frmConstructor_Main
Me.tstbDisplayname.Name = "tstbDisplayname" Me.tstbDisplayname.Name = "tstbDisplayname"
resources.ApplyResources(Me.tstbDisplayname, "tstbDisplayname") resources.ApplyResources(Me.tstbDisplayname, "tstbDisplayname")
' '
'TSMI_inWork 'docCM_InWork
' '
Me.TSMI_inWork.Image = Global.DD_Record_Organiser.My.Resources.Resources.FileSystemEditor_5852 Me.docCM_InWork.Image = Global.DD_Record_Organiser.My.Resources.Resources.FileSystemEditor_5852
Me.TSMI_inWork.Name = "TSMI_inWork" Me.docCM_InWork.Name = "docCM_InWork"
resources.ApplyResources(Me.TSMI_inWork, "TSMI_inWork") resources.ApplyResources(Me.docCM_InWork, "docCM_InWork")
' '
'TSMI_linkRecord 'docCM_linkRecord
' '
Me.TSMI_linkRecord.Image = Global.DD_Record_Organiser.My.Resources.Resources.Link Me.docCM_linkRecord.Image = Global.DD_Record_Organiser.My.Resources.Resources.Link
Me.TSMI_linkRecord.Name = "TSMI_linkRecord" Me.docCM_linkRecord.Name = "docCM_linkRecord"
resources.ApplyResources(Me.TSMI_linkRecord, "TSMI_linkRecord") resources.ApplyResources(Me.docCM_linkRecord, "docCM_linkRecord")
' '
'tsmiRights 'docCM_CheckRights
' '
Me.tsmiRights.Image = Global.DD_Record_Organiser.My.Resources.Resources.RightFileOnly Me.docCM_CheckRights.Image = Global.DD_Record_Organiser.My.Resources.Resources.RightFileOnly
Me.tsmiRights.Name = "tsmiRights" Me.docCM_CheckRights.Name = "docCM_CheckRights"
resources.ApplyResources(Me.tsmiRights, "tsmiRights") resources.ApplyResources(Me.docCM_CheckRights, "docCM_CheckRights")
' '
'ToolStripSeparator8 'ToolStripSeparator8
' '
Me.ToolStripSeparator8.Name = "ToolStripSeparator8" Me.ToolStripSeparator8.Name = "ToolStripSeparator8"
resources.ApplyResources(Me.ToolStripSeparator8, "ToolStripSeparator8") resources.ApplyResources(Me.ToolStripSeparator8, "ToolStripSeparator8")
' '
'ToolStripMI_DeleteFile 'docCM_DeleteFile
' '
Me.ToolStripMI_DeleteFile.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete Me.docCM_DeleteFile.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete
Me.ToolStripMI_DeleteFile.Name = "ToolStripMI_DeleteFile" Me.docCM_DeleteFile.Name = "docCM_DeleteFile"
resources.ApplyResources(Me.ToolStripMI_DeleteFile, "ToolStripMI_DeleteFile") resources.ApplyResources(Me.docCM_DeleteFile, "docCM_DeleteFile")
' '
'TsMI_DocRemoveLink 'docCM_RemoveLink
' '
Me.TsMI_DocRemoveLink.Image = Global.DD_Record_Organiser.My.Resources.Resources.RemoveLink_9938 Me.docCM_RemoveLink.Image = Global.DD_Record_Organiser.My.Resources.Resources.RemoveLink_9938
Me.TsMI_DocRemoveLink.Name = "TsMI_DocRemoveLink" Me.docCM_RemoveLink.Name = "docCM_RemoveLink"
resources.ApplyResources(Me.TsMI_DocRemoveLink, "TsMI_DocRemoveLink") resources.ApplyResources(Me.docCM_RemoveLink, "docCM_RemoveLink")
' '
'ToolStripSeparator9 'ToolStripSeparator9
' '
Me.ToolStripSeparator9.Name = "ToolStripSeparator9" Me.ToolStripSeparator9.Name = "ToolStripSeparator9"
resources.ApplyResources(Me.ToolStripSeparator9, "ToolStripSeparator9") resources.ApplyResources(Me.ToolStripSeparator9, "ToolStripSeparator9")
' '
'PropertiesToolStripMenuItem 'docCM_ResetView
' '
Me.PropertiesToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.PropertyGridEditorPart_6041 Me.docCM_ResetView.Name = "docCM_ResetView"
Me.PropertiesToolStripMenuItem.Name = "PropertiesToolStripMenuItem" resources.ApplyResources(Me.docCM_ResetView, "docCM_ResetView")
resources.ApplyResources(Me.PropertiesToolStripMenuItem, "PropertiesToolStripMenuItem") '
'docCM_showGridSearch
'
Me.docCM_showGridSearch.Name = "docCM_showGridSearch"
resources.ApplyResources(Me.docCM_showGridSearch, "docCM_showGridSearch")
' '
'ToolStripSeparator16 'ToolStripSeparator16
' '
Me.ToolStripSeparator16.Name = "ToolStripSeparator16" Me.ToolStripSeparator16.Name = "ToolStripSeparator16"
resources.ApplyResources(Me.ToolStripSeparator16, "ToolStripSeparator16") resources.ApplyResources(Me.ToolStripSeparator16, "ToolStripSeparator16")
' '
'AnsichtZurücksetzenToolStripMenuItem 'docCM_PropertiesFile
' '
Me.AnsichtZurücksetzenToolStripMenuItem.Name = "AnsichtZurücksetzenToolStripMenuItem" Me.docCM_PropertiesFile.Image = Global.DD_Record_Organiser.My.Resources.Resources.PropertyGridEditorPart_6041
resources.ApplyResources(Me.AnsichtZurücksetzenToolStripMenuItem, "AnsichtZurücksetzenToolStripMenuItem") Me.docCM_PropertiesFile.Name = "docCM_PropertiesFile"
resources.ApplyResources(Me.docCM_PropertiesFile, "docCM_PropertiesFile")
' '
'SucheAnzeigenToolStripMenuItem1 'docCM_GetRights
' '
Me.SucheAnzeigenToolStripMenuItem1.Name = "SucheAnzeigenToolStripMenuItem1" Me.docCM_GetRights.Name = "docCM_GetRights"
resources.ApplyResources(Me.SucheAnzeigenToolStripMenuItem1, "SucheAnzeigenToolStripMenuItem1") resources.ApplyResources(Me.docCM_GetRights, "docCM_GetRights")
' '
'GridViewDoc_Search 'GridViewDoc_Search
' '
@@ -1393,13 +1399,13 @@ Partial Class frmConstructor_Main
Friend WithEvents ToolStripSeparator6 As System.Windows.Forms.ToolStripSeparator Friend WithEvents ToolStripSeparator6 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents tsmi_RecordDelete As System.Windows.Forms.ToolStripMenuItem Friend WithEvents tsmi_RecordDelete As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ContextMenuStripResultFiles As System.Windows.Forms.ContextMenuStrip Friend WithEvents ContextMenuStripResultFiles As System.Windows.Forms.ContextMenuStrip
Friend WithEvents DateiÖffnenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents docCM_Open As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripSeparator7 As System.Windows.Forms.ToolStripSeparator Friend WithEvents ToolStripSeparator7 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents CopyToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents docCM_Copy As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripSeparator8 As System.Windows.Forms.ToolStripSeparator Friend WithEvents ToolStripSeparator8 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents TsMI_DocRemoveLink As System.Windows.Forms.ToolStripMenuItem Friend WithEvents docCM_RemoveLink As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripSeparator9 As System.Windows.Forms.ToolStripSeparator Friend WithEvents ToolStripSeparator9 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents PropertiesToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents docCM_PropertiesFile As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents tslblFileslocked As System.Windows.Forms.ToolStripLabel Friend WithEvents tslblFileslocked As System.Windows.Forms.ToolStripLabel
Friend WithEvents tsButtonCancel As System.Windows.Forms.ToolStripButton Friend WithEvents tsButtonCancel As System.Windows.Forms.ToolStripButton
Friend WithEvents tsbtnRedo As System.Windows.Forms.ToolStripButton Friend WithEvents tsbtnRedo As System.Windows.Forms.ToolStripButton
@@ -1407,21 +1413,21 @@ Partial Class frmConstructor_Main
Friend WithEvents Panel1 As System.Windows.Forms.Panel Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents MassenänderungToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents MassenänderungToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripSeparator10 As System.Windows.Forms.ToolStripSeparator Friend WithEvents ToolStripSeparator10 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents UmbenennenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents docCM_Rename As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents tsTextBoxRenameFile As System.Windows.Forms.ToolStripTextBox Friend WithEvents tsTextBoxRenameFile As System.Windows.Forms.ToolStripTextBox
Friend WithEvents TSMI_linkRecord As System.Windows.Forms.ToolStripMenuItem Friend WithEvents docCM_linkRecord As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents SplitContainer1 As DevExpress.XtraEditors.SplitContainerControl Friend WithEvents SplitContainer1 As DevExpress.XtraEditors.SplitContainerControl
Friend WithEvents ToolStripSeparator11 As System.Windows.Forms.ToolStripSeparator Friend WithEvents ToolStripSeparator11 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents DetailAnsichtDatensatzToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents DetailAnsichtDatensatzToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents EntitätssucheStartenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents EntitätssucheStartenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents TSMI_inWork As System.Windows.Forms.ToolStripMenuItem Friend WithEvents docCM_InWork As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents AnsichtZurücksetzenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents docCM_ResetView As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents TSMIDisplayname As System.Windows.Forms.ToolStripMenuItem Friend WithEvents docCM_RenameDisplay As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents tstbDisplayname As System.Windows.Forms.ToolStripTextBox Friend WithEvents tstbDisplayname As System.Windows.Forms.ToolStripTextBox
Friend WithEvents tsmiRights As System.Windows.Forms.ToolStripMenuItem Friend WithEvents docCM_CheckRights As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents progressLoadEntity As System.Windows.Forms.ToolStripProgressBar Friend WithEvents progressLoadEntity As System.Windows.Forms.ToolStripProgressBar
Friend WithEvents labelLoadEntity As System.Windows.Forms.ToolStripStatusLabel Friend WithEvents labelLoadEntity As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents ToolStripMI_DeleteFile As System.Windows.Forms.ToolStripMenuItem Friend WithEvents docCM_DeleteFile As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents tsstlblDocID As System.Windows.Forms.ToolStripStatusLabel Friend WithEvents tsstlblDocID As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents AuswertungAnzeigenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents AuswertungAnzeigenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripSeparator14 As System.Windows.Forms.ToolStripSeparator Friend WithEvents ToolStripSeparator14 As System.Windows.Forms.ToolStripSeparator
@@ -1429,10 +1435,11 @@ Partial Class frmConstructor_Main
Friend WithEvents ToolStripSeparator13 As System.Windows.Forms.ToolStripSeparator Friend WithEvents ToolStripSeparator13 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ToolStripSeparator12 As System.Windows.Forms.ToolStripSeparator Friend WithEvents ToolStripSeparator12 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ToolStripSeparator16 As System.Windows.Forms.ToolStripSeparator Friend WithEvents ToolStripSeparator16 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents SucheAnzeigenToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem Friend WithEvents docCM_showGridSearch As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripSeparator17 As System.Windows.Forms.ToolStripSeparator Friend WithEvents ToolStripSeparator17 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel
Friend WithEvents tsTextboxFulltext As System.Windows.Forms.ToolStripTextBox Friend WithEvents tsTextboxFulltext As System.Windows.Forms.ToolStripTextBox
Friend WithEvents tsbtnEntitySearch As System.Windows.Forms.ToolStripButton Friend WithEvents tsbtnEntitySearch As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator18 As System.Windows.Forms.ToolStripSeparator Friend WithEvents ToolStripSeparator18 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents docCM_GetRights As System.Windows.Forms.ToolStripMenuItem
End Class End Class

1492
app/DD-Record-Organiser/frmConstructor_Main.resx
View File

File diff suppressed because it is too large Load Diff

121
app/DD-Record-Organiser/frmConstructor_Main.vb
View File

@@ -999,13 +999,13 @@ Public Class frmConstructor_Main
RIGHT_WINDREAM_FORBIDDEN = False RIGHT_WINDREAM_FORBIDDEN = False
tsmi_RecordDelete.Enabled = True tsmi_RecordDelete.Enabled = True
MassenänderungToolStripMenuItem.Enabled = True MassenänderungToolStripMenuItem.Enabled = True
TsMI_DocRemoveLink.Enabled = True docCM_RemoveLink.Enabled = True
UmbenennenToolStripMenuItem.Enabled = True docCM_Rename.Enabled = True
TSMI_linkRecord.Enabled = True docCM_linkRecord.Enabled = True
TSMI_inWork.Enabled = True docCM_InWork.Enabled = True
CopyToolStripMenuItem.Enabled = True docCM_Copy.Enabled = True
RecordKopierenToolStripMenuItem.Enabled = True RecordKopierenToolStripMenuItem.Enabled = True
PropertiesToolStripMenuItem.Enabled = True docCM_PropertiesFile.Enabled = True
tslblLocked.Visible = False tslblLocked.Visible = False
tslblFileslocked.Visible = False tslblFileslocked.Visible = False
TabFollowUp.PageEnabled = True TabFollowUp.PageEnabled = True
@@ -1013,8 +1013,8 @@ Public Class frmConstructor_Main
TabWindream.PageEnabled = True TabWindream.PageEnabled = True
WindreamsucheNeuLadenToolStripMenuItem.Enabled = True WindreamsucheNeuLadenToolStripMenuItem.Enabled = True
EntitätssucheStartenToolStripMenuItem.Enabled = True EntitätssucheStartenToolStripMenuItem.Enabled = True
DateiÖffnenToolStripMenuItem.Enabled = True docCM_Open.Enabled = True
TSMI_inWork.Enabled = True docCM_InWork.Enabled = True
VerknüpfungenAnzeigenToolStripMenuItem.Enabled = True VerknüpfungenAnzeigenToolStripMenuItem.Enabled = True
Dim tempsql Dim tempsql
@@ -1058,12 +1058,12 @@ Public Class frmConstructor_Main
tsButtonDelete.Enabled = False tsButtonDelete.Enabled = False
tsmi_RecordDelete.Enabled = False tsmi_RecordDelete.Enabled = False
MassenänderungToolStripMenuItem.Enabled = False MassenänderungToolStripMenuItem.Enabled = False
UmbenennenToolStripMenuItem.Enabled = False docCM_Rename.Enabled = False
TSMI_linkRecord.Enabled = False docCM_linkRecord.Enabled = False
TSMI_inWork.Enabled = False docCM_InWork.Enabled = False
PropertiesToolStripMenuItem.Enabled = False docCM_PropertiesFile.Enabled = False
CopyToolStripMenuItem.Enabled = False docCM_Copy.Enabled = False
TsMI_DocRemoveLink.Enabled = False docCM_RemoveLink.Enabled = False
tslblLocked.Visible = True tslblLocked.Visible = True
RecordKopierenToolStripMenuItem.Enabled = False RecordKopierenToolStripMenuItem.Enabled = False
TabFollowUp.PageEnabled = False TabFollowUp.PageEnabled = False
@@ -1115,8 +1115,8 @@ Public Class frmConstructor_Main
'TabWindream.PageEnabled = False 'TabWindream.PageEnabled = False
WindreamsucheNeuLadenToolStripMenuItem.Enabled = False WindreamsucheNeuLadenToolStripMenuItem.Enabled = False
EntitätssucheStartenToolStripMenuItem.Enabled = False EntitätssucheStartenToolStripMenuItem.Enabled = False
DateiÖffnenToolStripMenuItem.Enabled = False docCM_Open.Enabled = False
TSMI_inWork.Enabled = False docCM_InWork.Enabled = False
End If End If
Catch ex As Exception Catch ex As Exception
@@ -5100,7 +5100,7 @@ Public Class frmConstructor_Main
Delete_Record() Delete_Record()
End Sub End Sub
Private Sub KopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CopyToolStripMenuItem.Click Private Sub KopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_Copy.Click
If ClassWindreamDocGrid.SELECTED_DOC_PATH <> "" Then If ClassWindreamDocGrid.SELECTED_DOC_PATH <> "" Then
Try Try
Dim selectedfile(0) As String Dim selectedfile(0) As String
@@ -5139,7 +5139,7 @@ Public Class frmConstructor_Main
End If End If
End Sub End Sub
Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TsMI_DocRemoveLink.Click Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_RemoveLink.Click
If RECORD_ID = 0 Then If RECORD_ID = 0 Then
MsgBox("Please select a record!", MsgBoxStyle.Exclamation) MsgBox("Please select a record!", MsgBoxStyle.Exclamation)
Exit Sub Exit Sub
@@ -5185,7 +5185,7 @@ Public Class frmConstructor_Main
End If End If
End Sub End Sub
Private Sub EigenschaftenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PropertiesToolStripMenuItem.Click Private Sub EigenschaftenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_PropertiesFile.Click
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
MsgBox("Could not read File Parameters(4)!", MsgBoxStyle.Exclamation) MsgBox("Could not read File Parameters(4)!", MsgBoxStyle.Exclamation)
Exit Sub Exit Sub
@@ -5209,7 +5209,7 @@ Public Class frmConstructor_Main
End Sub End Sub
Private Sub DateiÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiÖffnenToolStripMenuItem.Click Private Sub DateiÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_Open.Click
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
MsgBox("Could not read File Parameters(4)!", MsgBoxStyle.Exclamation) MsgBox("Could not read File Parameters(4)!", MsgBoxStyle.Exclamation)
Exit Sub Exit Sub
@@ -5511,11 +5511,11 @@ Public Class frmConstructor_Main
End Try End Try
End If End If
End Sub End Sub
Private Sub UmbenennenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UmbenennenToolStripMenuItem.Click Private Sub UmbenennenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_Rename.Click
Display_Filename() Display_Filename()
End Sub End Sub
Private Sub UmbenennenToolStripMenuItem_MouseHover(sender As Object, e As EventArgs) Handles UmbenennenToolStripMenuItem.MouseHover Private Sub UmbenennenToolStripMenuItem_MouseHover(sender As Object, e As EventArgs) Handles docCM_Rename.MouseHover
Display_Filename() Display_Filename()
End Sub End Sub
Sub Display_Filename() Sub Display_Filename()
@@ -5544,7 +5544,7 @@ Public Class frmConstructor_Main
End Try End Try
End Sub End Sub
Private Sub DateiMitDatensatzVerknüpfenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TSMI_linkRecord.Click Private Sub DateiMitDatensatzVerknüpfenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_linkRecord.Click
Try Try
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search) ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
@@ -5640,24 +5640,56 @@ Public Class frmConstructor_Main
End If End If
End Sub End Sub
Sub ContextMenu_Read()
docCM_Open.Enabled = True
docCM_Copy.Enabled = False
docCM_Rename.Enabled = False
docCM_RenameDisplay.Enabled = False
docCM_InWork.Enabled = False
docCM_linkRecord.Enabled = False
docCM_CheckRights.Enabled = False
docCM_DeleteFile.Enabled = False
docCM_RemoveLink.Enabled = False
End Sub
Sub ContextMenu_Write()
docCM_Open.Enabled = True
docCM_Copy.Enabled = True
docCM_Rename.Enabled = True
docCM_RenameDisplay.Enabled = True
docCM_InWork.Enabled = True
docCM_linkRecord.Enabled = True
docCM_CheckRights.Enabled = True
docCM_DeleteFile.Enabled = True
docCM_RemoveLink.Enabled = True
End Sub
Private Sub ContextMenuStripResultFiles_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStripResultFiles.Opening Private Sub ContextMenuStripResultFiles_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStripResultFiles.Opening
File_in_Work() File_in_Work()
Dim Result = ClassWindream.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_PATH)
If Not IsNothing(Result) Then
Select Case Result.ToString
Case "R"
ContextMenu_Read()
Case "RW"
ContextMenu_Write()
Case "RWA"
ContextMenu_Write()
End Select
End If
If ClassWindreamDocGrid.DT_RESULTFILES.Rows.Count = 1 Then If ClassWindreamDocGrid.DT_RESULTFILES.Rows.Count = 1 Then
If ClassWindreamDocGrid.DT_RESULTFILES.Rows(0).Item("DISPLAYNAME") <> "" Then If ClassWindreamDocGrid.DT_RESULTFILES.Rows(0).Item("DISPLAYNAME") <> "" Then
TSMIDisplayname.Visible = True docCM_RenameDisplay.Visible = True
Set_Displayname() Set_Displayname()
Else Else
TSMIDisplayname.Visible = False docCM_RenameDisplay.Visible = False
End If End If
Else Else
TSMIDisplayname.Visible = False docCM_RenameDisplay.Visible = False
End If End If
End Sub End Sub
Sub File_in_Work() Sub File_in_Work()
TSMI_inWork.Enabled = True docCM_InWork.Enabled = True
Try Try
Dim expression As String Dim expression As String
expression = "DocID = " & ClassWindreamDocGrid.SELECTED_DOC_ID expression = "DocID = " & ClassWindreamDocGrid.SELECTED_DOC_ID
@@ -5694,13 +5726,13 @@ Public Class frmConstructor_Main
displ = "Lock file for working" displ = "Lock file for working"
End If End If
End If End If
TSMI_inWork.Text = displ docCM_InWork.Text = displ
Catch ex As Exception Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in File-Work Info: " & ex.Message, False) ClassLogger.Add(">> Unexpected Error in File-Work Info: " & ex.Message, False)
TSMI_inWork.Enabled = False docCM_InWork.Enabled = False
End Try End Try
End Sub End Sub
Private Sub TSMI_inWork_Click(sender As Object, e As EventArgs) Handles TSMI_inWork.Click Private Sub TSMI_inWork_Click(sender As Object, e As EventArgs) Handles docCM_InWork.Click
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
MsgBox("Could not read File Parameters (3)!", MsgBoxStyle.Exclamation) MsgBox("Could not read File Parameters (3)!", MsgBoxStyle.Exclamation)
Exit Sub Exit Sub
@@ -5725,7 +5757,7 @@ Public Class frmConstructor_Main
RUN_WDSEARCH_GRID("RECORD") RUN_WDSEARCH_GRID("RECORD")
End If End If
End Sub End Sub
Private Sub AnsichtZurücksetzenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnsichtZurücksetzenToolStripMenuItem.Click Private Sub AnsichtZurücksetzenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_ResetView.Click
' TODO: Ansicht zurücksetzen ' TODO: Ansicht zurücksetzen
Try Try
Dim XMLPath = Get_DocGrid_Layout_Filename() Dim XMLPath = Get_DocGrid_Layout_Filename()
@@ -5745,10 +5777,10 @@ Public Class frmConstructor_Main
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
End Sub End Sub
Private Sub TSMIDisplayname_Click(sender As Object, e As EventArgs) Handles TSMIDisplayname.Click Private Sub TSMIDisplayname_Click(sender As Object, e As EventArgs) Handles docCM_RenameDisplay.Click
Set_Displayname() Set_Displayname()
End Sub End Sub
Private Sub TSMIDisplayname_MouseHover(sender As Object, e As EventArgs) Handles TSMIDisplayname.MouseHover Private Sub TSMIDisplayname_MouseHover(sender As Object, e As EventArgs) Handles docCM_RenameDisplay.MouseHover
Set_Displayname() Set_Displayname()
End Sub End Sub
Sub Set_Displayname() Sub Set_Displayname()
@@ -5784,7 +5816,7 @@ Public Class frmConstructor_Main
End If End If
End Sub End Sub
Private Sub TestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles tsmiRights.Click Private Sub TestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_CheckRights.Click
Dim msg = "Die Rechte wurden erfolgreich überprüft und aktualisiert!" Dim msg = "Die Rechte wurden erfolgreich überprüft und aktualisiert!"
CURRENT_RECORD_ID = RECORD_ID CURRENT_RECORD_ID = RECORD_ID
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
@@ -5838,7 +5870,7 @@ Public Class frmConstructor_Main
End Sub End Sub
Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMI_DeleteFile.Click Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles docCM_DeleteFile.Click
If RECORD_ID = 0 And SEARCH_TYPE <> "ENTITY" Then If RECORD_ID = 0 And SEARCH_TYPE <> "ENTITY" Then
MsgBox("Please select a record!", MsgBoxStyle.Exclamation) MsgBox("Please select a record!", MsgBoxStyle.Exclamation)
Exit Sub Exit Sub
@@ -5992,7 +6024,7 @@ Public Class frmConstructor_Main
frm.Show() frm.Show()
End Sub End Sub
Private Sub SucheAnzeigenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles SucheAnzeigenToolStripMenuItem1.Click Private Sub SucheAnzeigenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles docCM_showGridSearch.Click
GridViewDoc_Search.ShowFindPanel() GridViewDoc_Search.ShowFindPanel()
End Sub End Sub
@@ -6022,4 +6054,19 @@ Public Class frmConstructor_Main
Private Sub tsbtnEntitySearch_Click(sender As Object, e As EventArgs) Handles tsbtnEntitySearch.Click Private Sub tsbtnEntitySearch_Click(sender As Object, e As EventArgs) Handles tsbtnEntitySearch.Click
RUN_WDSEARCH_GRID("ENTITY") RUN_WDSEARCH_GRID("ENTITY")
End Sub End Sub
Private Sub DateirechteFürUserToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_GetRights.Click
Dim result = ClassWindream.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_PATH)
If Not IsNothing(result) Then
Dim msg = "Das aktuelle Recht für Sie ist: " & vbNewLine & vbNewLine
If USER_LANGUAGE <> "de-DE" Then
msg = "Your current right is: " & vbNewLine & vbNewLine & vbNewLine
End If
msg = msg & result.ToString
msg = msg & vbNewLine & vbNewLine & "R:" & vbTab & "Read" & vbNewLine & "W:" & vbTab & "Write" & vbNewLine & "A:" & vbTab & "Admin"
MsgBox(msg, MsgBoxStyle.Information)
Else
MsgBox("Could not read the rights for selected file! Check the log for further infomation!", MsgBoxStyle.Exclamation)
End If
End Sub
End Class End Class