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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2019-11-06 16:31:56 +01:00
parent e2c05a5ea3
commit d4dfcd1744
46 changed files with 3412 additions and 678 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
UID/cProgramFunctions.vb
View File

@@ -129,8 +129,10 @@ Public Class cProgramFunctions
End Try
End Function
Public Function copyProgram(ByRef sourcePfad As String, ByVal destPfad As String, Optional ZIP As Boolean = False) As Boolean
If ZIP Then
Public Function copyProgram(ByRef sourcePfad As String, ByVal destPfad As String, Optional ZIP As Boolean = False, Optional incrementalCopy As Boolean = False, Optional list As List(Of VERAG_PROG_ALLGEMEIN.cProgrammeUpdate) = Nothing) As Boolean
If incrementalCopy Then
Return VERAG_PROG_ALLGEMEIN.cProgrammeUpdate.copyProgramLIST(sourcePfad, destPfad, {})
ElseIf ZIP Then
Return copyProgramZIP(sourcePfad, destPfad)
Else
Return copyProgramNOTZip(sourcePfad, destPfad)
@@ -176,6 +178,8 @@ Public Class cProgramFunctions
Return False
End Function
Private Function FileCopier(ByRef sourcePfad As String, ByVal destPfad As String) As Boolean
If Not destPfad.EndsWith("\") Then destPfad = destPfad & "\"
Try