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

vers + Updater

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-03-12 17:08:00 +01:00
parent 4dd9f87975
commit cbab1ebf9b
5 changed files with 28 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
AVISOUPDATER/cProgrammeUpdate.vb
View File

@@ -100,10 +100,19 @@ Public Class cProgrammeUpdate
'Kopieren/Überschreiben der neuen Files:
For Each f In LIST_SOURCE
If isNewFile(f, LIST_DEST) Then
'Dim FI = New IO.FileInfo()
Dim s_path = dirNameReplace_SOURCE & "\" & If(f.pud_filePathFolder, "") & "\" & f.pud_fileName.Replace("\\", "\")
Dim d_path = dirNameReplace_DEST & "\" & If(f.pud_filePathFolder, "") & "\" & f.pud_fileName.Replace("\\", "\")
IO.File.Copy(s_path, d_path)
Dim d_path = dirNameReplace_DEST & "\" & If(f.pud_filePathFolder, "") & "\" & f.pud_fileName.Replace("\\", "\")
If fileStartsWith(f.pud_fileName, ignoreFilesBeginWith) And IO.File.Exists(d_path) Then
'Wenn Ziel-Date in der ignore-List und die Datei existiert auch, soll diese nicht kopiert werden.
'Wenn Sie nicht exisistiert wir die Datei schon kopiert (zB Standort.txt)
Else
IO.File.Copy(s_path, d_path, True)
End If
End If
Next
Catch ex As Exception