Rework validation for grids
This commit is contained in:
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user