edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

WARENORT-AVISO, EN-Anpassung, Benachrichtigungen, ATILLA-Indonesien, AVISO-TV

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-12-14 21:20:36 +01:00
parent 4b2dca43dd
commit 2c1de3334b
22 changed files with 1582 additions and 1107 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
AVISOUPDATER/AVISOUPDATER_Version.txt
View File

@@ -1 +1 @@
7.0
7.1

8
AVISOUPDATER/UPDATERfrm.vb
View File

@@ -107,7 +107,7 @@ Public Class UPDATERfrm
If CopyIncremental Then
cProgrammeUpdate.copyProgramLIST(F, AppDomain.CurrentDomain.BaseDirectory, {"AVISOUPDATER", "NOT_DEL_"})
cProgrammeUpdate.copyProgramLIST(F, AppDomain.CurrentDomain.BaseDirectory, {"AVISOUPDATER", "NOT_DEL_", "Standort.txt"})
Else
delFiles()
FileCopier()
@@ -256,7 +256,7 @@ Public Class UPDATERfrm
For Each file_source In IO.Directory.GetFiles(F) 'jedes File in F:\
Dim found = False
For Each file As String In IO.Directory.GetFiles(AppDomain.CurrentDomain.BaseDirectory) ' Ermittelt alle Dateien des Ordners
If Not cut_file(file).Contains("AVISOUPDATER") And Not cut_file(file).Contains("NOT_DEL_") Then 'alles außer den Updater
If Not cut_file(file).Contains("AVISOUPDATER") And Not cut_file(file).Contains("NOT_DEL_") And Not cut_file(file).Contains("Standort.txt") Then 'alles außer den Updater
If cut_file(file) = cut_file(file_source) Then 'Gleicher Name
If CompareFiles(file, file_source) Then
'selbe Datei --> Nichts
@@ -279,7 +279,7 @@ Public Class UPDATERfrm
For Each file As String In IO.Directory.GetFiles(AppDomain.CurrentDomain.BaseDirectory) ' Ermittelt alle Dateien des Ordners
Dim found = False
For Each file_source In IO.Directory.GetFiles(F) 'jedes File in F:\
If Not cut_file(file).Contains("AVISOUPDATER") And Not cut_file(file).Contains("NOT_DEL_") Then 'alles außer den Updater
If Not cut_file(file).Contains("AVISOUPDATER") And Not cut_file(file).Contains("NOT_DEL_") And Not cut_file(file).Contains("Standort.txt") Then 'alles außer den Updater
If cut_file(file) = cut_file(file_source) Then 'Gleicher Name
found = True
End If
@@ -312,7 +312,7 @@ Public Class UPDATERfrm
'Dim f As String = "no"
Try
For Each file As String In IO.Directory.GetFiles(AppDomain.CurrentDomain.BaseDirectory) ' Ermittelt alle Dateien des Ordners
If Not cut_file(file).Contains("AVISOUPDATER") And Not cut_file(file).Contains("NOT_DEL_") Then
If Not cut_file(file).Contains("AVISOUPDATER") And Not cut_file(file).Contains("NOT_DEL_") And Not cut_file(file).Contains("Standort.txt") Then
' f = file
My.Computer.FileSystem.DeleteFile(file) 'Löscht das AVISO-Programm, außer den Updater
' IO.File.Delete(file)