Free for PREMIUM members
Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium
For cnt = 0 To lvPartfiles.CheckedItems.Count - 1 ' lvPartfiles.SelectedItems.Count - 1
If lvPartfiles.CheckedItems.Count <> 0 Then
_File_Selected = lvPartfiles.SelectedItems(cnt).Text
If lvPartfiles.SelectedItems.Item(cnt).ForeColor = Color.Red Then
MessageBox.Show("File has no XYZ Definitions associated with it. User must Edit and Upload the XYZ Definitions.", "XYZ Definition Warning Message", MessageBoxButtons.OK, MessageBoxIcon.Warning)
For Each file As String In System.IO.Directory.GetFiles(_dir_name_XML_Files, "*.xml")
XML_File_Name_Only = file
xmlFile = file
slashPosition = file.LastIndexOf("\")
XML_File_Name_Only = xmlFile.Substring(slashPosition + 1)
XML_File_Name_Only = System.IO.Path.GetFileNameWithoutExtension(XML_File_Name_Only)
'Compares the two files
If LMI_File Like "*########" Then
LMI_File = LMI_File.Remove(LMI_File.Length - 12)
If LMI_File = XML_File_Name_Only Then
'Opens the selected XML File that matches the .LMI File selected in the List.
Open in new window
Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!
Learn how Concerto can help you.
For cnt As Integer = 0 To ListView1.CheckedItems.Count() - 1
Dim i As Integer = ListView1.CheckedIndices(cnt)
Dim myText As String = ListView1.Items(i).Text ' text from checked line
Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.