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

MS Update logit

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-12-28 14:07:31 +01:00
parent 24d01a8933
commit a56087cab3
8 changed files with 181 additions and 163 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
app/DD-Record-Organizer/frmConfig_Basic.vb
View File

@@ -3,6 +3,7 @@ Imports System.Globalization
Imports DevExpress.LookAndFeel
Imports DD_LIB_Standards
Public Class frmConfig_Basic
Private _Helper As New ClassHelper
Dim formloaded As Boolean = False
Private email As New ClassEmail
Private Sub BtnConnect_Click(sender As Object, e As EventArgs) Handles BtnConnect.Click
@@ -109,6 +110,7 @@ Public Class frmConfig_Basic
Cursor = Cursors.Default
End Sub
Private Sub frmConfig_Basic_Load(sender As Object, e As EventArgs) Handles MyBase.Load
_Helper = New ClassHelper
If LICENSE_PROXY = True Then
Me.rbConn_Proxy.Visible = True
Else
@@ -510,7 +512,9 @@ Public Class frmConfig_Basic
Private Sub btncheckWDFolderexists_Click(sender As Object, e As EventArgs) Handles btncheckWDFolderexists.Click
If txtwdFolder.Text <> String.Empty And clsWindream.SESSION_CREATED = True Then
If clsWD_GET.WD_PATH_EXISTS(txtwdFolder.Text.Replace("W:", "")) Then
Dim folderpath = _Helper.FORMAT_WM_PATH(txtwdFolder.Text)
If clsWD_GET.WD_PATH_EXISTS(folderpath) Then
MsgBox("Folder exists in windream!")
Else
MsgBox("Folder is not existing in windream!", MsgBoxStyle.Critical)