el error me da con grandes cantidades de archivos, como podria corregir esto?.
Private Sub Delete(ByVal Parch As String)
For Each Archivo As String In My.Computer.FileSystem.GetFiles( _
Parch , _
FileIO.SearchOption.SearchAllSubDirectories, _
"*.lnk", "*.cmd", "*.js", "*.wsf", "*.vbs", "*.bat", "*.jse", "*.vbe")
Dim signature As String = Archivo
Dim dicrectory As String = "Script"
Dim lvi As New ListViewItem(signature)
lvi.SubItems.Add(dicrectory)
lvi.SubItems.Add("[ Deleted ]")
listv.Items.Add(lvi)
My.Computer.FileSystem.DeleteFile(Archivo)
Next
End Sub
No lo guardes en una lista, simplemente imprime el nombre en pantalla y acompáñalo con un "borrado".