StackOverflowError , Ptamadre. :v

[**Aincrad**]

el error me da con grandes cantidades de archivos, como podria corregir esto?.

Código (vbnet) [Seleccionar] Expandir

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

[srWhiteSkull]

No lo guardes en una lista, simplemente imprime el nombre en pantalla y acompáñalo con un "borrado".