Ressources adapt

This commit is contained in:
Developer01 2025-04-28 10:56:40 +02:00
parent a420c1a618
commit c402467b38

View File

@ -1300,7 +1300,7 @@ Public Class Windream
Dim oType As Integer = GetIndexType(IndexName) Dim oType As Integer = GetIndexType(IndexName)
Dim oConvertedValues As New List(Of String) Dim oConvertedValues As New List(Of String)
Dim oArray As Object Dim oArray As Object
_logger.Debug("SetFileIndexLoS '{0}' - Indextype: {1} ... ", IndexName, oType) _logger.Debug("SetFileIndexLoS '{0}' - Indextype: {1} - ... ", IndexName, oType)
ReDim oArray(Values.Count - 1) ReDim oArray(Values.Count - 1)
For oIndex = 0 To Values.Count - 1 For oIndex = 0 To Values.Count - 1
@ -1318,6 +1318,7 @@ Public Class Windream
Return True Return True
Catch ex As Exception Catch ex As Exception
_logger.Error(ex) _logger.Error(ex)
Return False Return False
End Try End Try
End Function End Function