21-02-19, 08:28 PM
كود :
ElseIf x.StartsWith("%FOLD_UP%") = True Then
Dim xx As String() = Split(x, ".|.")
Dim itmm As New ListViewItem
itmm.Text = xx(1)
itmm.SubItems.Add(xx(2))
If itmm.Text = "desktop.ini" Then
itmm.ImageIndex = 2
Else
itmm.ImageIndex = 1
End If
itmm.Group = shl2.ListView1.Groups("Group7")
shl2.ListView1.Items.Add(itmm)
shl2.lbStatus.Text = "Status : Verificando Aguarde (" & shl2.ListView1.Items.Count & "/" & (allProcess.Length - 1) & ")"
End If
Next
shl2.lbStatus.Text = "Status : StartUp (" & shl2.ListView1.Items.Count & "/" & (allProcess.Length - 1) & ")"
Catch ex As Exception
End Try
End If