Rework validation for grids

This commit is contained in:
Jonathan Jenne
2022-06-24 13:24:05 +02:00
parent 4860713d17
commit eee2c83eea
7 changed files with 558 additions and 288 deletions

View File

@@ -205,7 +205,7 @@ Public Class ClassAllgemeineFunktionen
Do While Check_File_exists(_Ziel, clsWD) = True
Dim neuername As String = Stammname & "~" & version & extension
_Ziel = neuername
version = version + 1
version += 1
Loop
My.Computer.FileSystem.MoveFile(vMove_File, _Ziel)
LOGGER.Info("Datei erfolgreich verschoben - Ziel: " & _Ziel)