Sub LoadTableView
For Each FileNameToParse As String In File.ListFiles(FolderRoot & "/" & FolderWork)
If FileNameToParse.ToUpperCase.EndsWith(ElaboraSoloEstensione.ToUpperCase) Then
AddRowTableViewKdm(FileNameToParse)
End If
Next
End Sub
Sub AddRowTableViewKdm(TempFileName As String)
Try
Dim lblRow As Label
Dim chkRow As CheckBox
lblRow.Initialize("lblRow")
chkRow.Initialize("chkRow")
lblRow.Text = TempFileName
If ParseNomeFileKdm(TempFileName.ToUpperCase, False) Then
chkRow.Checked = True
chkRow.Enabled = True
Else
lblRow.Style = "-fx-text-fill: coral;"
chkRow.Checked = False
chkRow.Enabled = False
End If
If tvKdm.GetColumnWidth(COL_FILE) > 10 Then
lblRow.PrefWidth = tvKdm.GetColumnWidth(COL_FILE)
Else
lblRow.PrefWidth = 1500
End If
tvKdm.Items.Add(Array As Object(lblRow, chkRow))
lblFileSelezionati.Text = "File selezionati " & FileSelezionati & "/" & tvKdm.Items.Size
Catch
MsgBox.DialogType = "error"
MsgBox.Show2("ERRORE DURANTE L'AGGIUNTA DELLA RIGA <" & TempFileName & ">" & CRLF & LastException.Message, AppTitle, BtnOk, "", "")
End Try
End Sub