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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-08-04 16:34:47 +02:00
parent 40295a2819
commit 89d8e0a3a8
95 changed files with 3655 additions and 697 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
SDL/frmMain.vb
View File

@@ -309,10 +309,10 @@ Public Class frmMain
Private Sub UpdateUpdater_Tick(sender As Object, e As EventArgs) Handles UpdateUpdater.Tick
UpdateUpdater.Enabled = False
Try
Dim aktVersion = "3.0" ' Aktuelle Updater Version
Dim F = "F:\Programme\SDL_install\"
Dim aktVersion = "4.0" ' Aktuelle Updater Version
Dim F = "\\share01\Programme\SDL_install\"
Dim doUpdaterUpdate = False
If IO.File.Exists(AppDomain.CurrentDomain.BaseDirectory & "\SDLUPDATER_Version.txt") Then 'Updater muss auch existieren, sonst wird er auch beim Developer Rechner eingefügt...
If File.Exists(AppDomain.CurrentDomain.BaseDirectory & "\SDLUPDATER_Version.txt") Then 'Updater muss auch existieren, sonst wird er auch beim Developer Rechner eingefügt...
Dim fs As New FileStream(AppDomain.CurrentDomain.BaseDirectory & "\SDLUPDATER_Version.txt", FileMode.Open, FileAccess.Read)
Dim strmReader As New StreamReader(fs)
Dim Version = strmReader.ReadLine
@@ -322,17 +322,18 @@ Public Class frmMain
End If
End If
fs.Close()
strmReader.Close()
Else
doUpdaterUpdate = True
End If
If Not doUpdaterUpdate Then Exit Sub
If IO.Directory.Exists(F) And IO.File.Exists(AppDomain.CurrentDomain.BaseDirectory & "\SDLUPDATER.exe") Then 'Updater muss auch existieren, sonst wird er auch beim Developer Rechner eingefügt...
For Each file As String In IO.Directory.GetFiles(F) ' Ermittelt alle Dateien des Ordners
IO.File.Copy(file, AppDomain.CurrentDomain.BaseDirectory & cut_file(file), True) ' Kopiert die Dateien Next
If Directory.Exists(F) And File.Exists(AppDomain.CurrentDomain.BaseDirectory & "\SDLUPDATER.exe") Then 'Updater muss auch existieren, sonst wird er auch beim Developer Rechner eingefügt...
For Each file As String In Directory.GetFiles(F) ' Ermittelt alle Dateien des Ordners
System.IO.File.Copy(file, AppDomain.CurrentDomain.BaseDirectory & cut_file(file), True) ' Kopiert die Dateien Next
Next
For Each file As String In IO.Directory.GetDirectories(F) ' Ermittelt alle Unterordner des Ordners
For Each file As String In Directory.GetDirectories(F) ' Ermittelt alle Unterordner des Ordners
My.Computer.FileSystem.CopyDirectory(file, AppDomain.CurrentDomain.BaseDirectory & cut_file(file), True)
Next
End If