el error me da con grandes cantidades de archivos, como podria corregir esto?.
Código
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