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

MS_ChangesKW38

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2017-09-25 13:59:52 +02:00
parent 0e5a48f92c
commit ce89aef1cd
16 changed files with 3549 additions and 3978 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
app/VERSION_CHECKER/ModuleMySettings.vb
View File

@@ -13,6 +13,7 @@ Module ModuleMySettings
Public MyConnectionString As String = ""
Public MyServer_UpdatePath As String = ""
Public VERSION_SERVER = "1.0.0.0"
Public MIN_REQUIRED_VERSION = "1.0.0.0"
Public VERSION_USER = "1.0.0.0"
Public FORCE_UPDATE As Boolean = False
Public UPDATE_ID As Integer

2
app/VERSION_CHECKER/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.1.0.1")>
<Assembly: AssemblyVersion("1.2.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

21
app/VERSION_CHECKER/frmVersionCheck.vb
View File

@@ -165,7 +165,9 @@ Public Class frmVersionCheck
Dim error_while_replacing = False
For Each Upd_item As DataRow In DT_UPDATE_ITEMS.Rows
Dim BackUpOfFileToReplace As String = MY_INSTALL_PATH & "\" & Upd_item.Item("ITEM_INFO") & ".bac"
BackUpOfFileToReplace = BackUpOfFileToReplace.ToString.Replace("\\", "\")
Dim sourcefile = Path.Combine(FOLDER_TEMP, Upd_item.Item("ITEM_INFO"))
sourcefile = sourcefile.ToString.Replace("\\", "\")
Dim targetfile
If IsDBNull(Upd_item.Item("INFO1")) Then
targetfile = Path.Combine(MY_INSTALL_PATH, Upd_item.Item("ITEM_INFO"))
@@ -177,16 +179,21 @@ Public Class frmVersionCheck
End If
End If
targetfile = targetfile.ToString.Replace("\\", "\")
Try
' Replace the file.
If File.Exists(targetfile) Then
If File_Rename(targetfile, BackUpOfFileToReplace) = True Then
If MoveFile(sourcefile, targetfile) = True Then
File_Delete(BackUpOfFileToReplace)
Else
'Verschieben hat nicht geklappt also die Backupdatei wieder umbenennen!
File_Rename(BackUpOfFileToReplace, targetfile)
If File.Exists(BackUpOfFileToReplace) Then
If MoveFile(sourcefile, targetfile) = True Then
File_Delete(BackUpOfFileToReplace)
Else
'Verschieben hat nicht geklappt also die Backupdatei wieder umbenennen!
File_Rename(BackUpOfFileToReplace, targetfile)
End If
End If
Else
End If
Else
MoveFile(sourcefile, targetfile)
@@ -254,7 +261,7 @@ Public Class frmVersionCheck
Rename(targetfile, Renamefilestring)
Return True
Catch ex As Exception
ClassLogger.Add(String.Format("Unexpected Error in File_Rename: " & " targetfile '{0}'" & "Renamefilestring '{1}'" & "ERROR: {2}", targetfile, Renamefilestring, ex.Message))
ClassLogger.Add(String.Format("frmVersionCheck - Unexpected Error in File_Rename: " & " OldPath '{0}'" & "NewPath '{1}'" & "ERROR: {2}", targetfile, Renamefilestring, ex.Message))
ClassLogger.Add("myRow: " & myRow.ToString, False)
Return False
End Try
@@ -273,7 +280,7 @@ Public Class frmVersionCheck
File.Move(sourcefile, targetfile)
Return True
Catch ex As Exception
ClassLogger.Add(String.Format("Unexpected Error in MoveFile: sourcefile '{0}', targetfile '{1}' - ERROR: {2}", sourcefile, targetfile, ex.Message))
ClassLogger.Add(String.Format("Unexpected Error in MoveFile: sourcefile '{0}', destfilename '{1}' - ERROR: {2}", sourcefile, targetfile, ex.Message))
Return False
End Try
End Function