Oppure

Loading
09/07/08 13:07
alebird
Ho un problema per verificare l'esistenza di un file

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:d
aaa
09/07/08 14:18
gantonio
Ma hai una funzione

EsisteFile

E qual e'?

E perche' utilizzi un variabile con il nome della stessa funzione?

E il ? nel nome del file cosa significa?
aaa
09/07/08 14:30
alebird
ragazzi io ho cercato di modificare il codice da qui:


pierotofy.it/pages/guide_tutorials/Visual_Basic/Verificare_l_-_esistenza_di_un_file/
aaa
09/07/08 18:34
gantonio
Beh ... mi dispiace per chi ha postato quel codice, ma forse non l'ha neanche provato ...

Se il nome della funzione e' EsisteFile, allora il resto deve essere

If EsisteFile("C:/pincopallino.txt") Then
  MsgBox"Il file esiste" 
Else
  MsgBox "Il file non esiste" 
End If 


ma se vuoi usare il ? nel nome del file (carattere jolly) allora devi usare la funzione Dir$ e non la GetAttr ...
Ultima modifica effettuata da gantonio 09/07/08 18:36
aaa
09/07/08 20:17
alebird
e allora io nel timer1 vorrei mettere un codice che ha questa funzione:
Controlla se esiste il file,se esiste inserisce nel list1: file trovato,e lo elimina
se non esiste scrive nel list1 File non trovato e basta:D
aiutatemi vi prego:D
aaa
10/07/08 8:11
gantonio
Usa il codice che ti ho suggerito e al posto delle MsgBox utilizzi le

List1.AddItem

per aggiungere elementi alla listbox

aaa