1
Kod:
Dim fso As Object, fs As Object, dosya As String fso = CreateObject("Scripting.FileSystemObject") On Error Resume Next For Each fs In fso.getfolder(yol1).Files If fso.GetExtensionName(fs) = "exe" Then scl = (Microsoft.VisualBasic.Left(fs.Name, Len(fs.Name) - 4)) Kill(scl) ListBox1.Items.Add(scl + " Virusu Silindi") End If Next
icine Imports System.IO import ettim başka birşeyde sorun.
Silmiyor yahu sadece Listeye alıyor. o kadar

2

Beyler Process.start("Yol")
Kodu calıştırıyor ama ekrana cıkıyor istediğim kod bunu minimum olarak calıştırsın. bu kodun bir yerine minimized yazıyorduk ama unuttum.


Proje icin Anti virus yapıyorum da.
__________________