09/07/08 13:07
alebird
Ho un problema per verificare l'esistenza di un file
ho un commandbutton un timer e un listbox
dove sbaglio
ora con questo codice vorrei che se trova il virus (e tutta una prova per allenarmi) nel listbox esce Virus trovato e lo elimina se non lo trova sempre nel listbox esce non trovato
ma mi da errore nel timer
ho un commandbutton un timer e un listbox
Private Sub Command1_Click() timer2.Enabled = True End Sub
List1.AddItem "Controllo : C:\?msss.exe" Dim EsisteFile As Boolean EsisteFile = EsisteFile("C:\?msss.exe") If EsisteFile = True Then List1.AddItem "Virus ?msss Trovato!" End If If EsisteFile = False Then List1.AddItem "Virus ?msss Non trovato!" If EsisteFile = True Then Kill "c:\?msss Eliminato" list1.additem "Virus Eliminato" End If
dove sbaglio
ora con questo codice vorrei che se trova il virus (e tutta una prova per allenarmi) nel listbox esce Virus trovato e lo elimina se non lo trova sempre nel listbox esce non trovato
ma mi da errore nel timer
aaa