Visual Basic 6 - Errore Verificare l'esistenza di un file ed eliminarlo

Forum - Visual Basic 6 - Errore Verificare l'esistenza di un file ed eliminarlo

alebird (Normal User)
Pro

Messaggi: 67
Iscritto: 05/10/2007

Postato alle 15:07
Mercoledì, 09/07/2008

Ho un problema per verificare l'esistenza di un file

ho un commandbutton un timer e un listbox

Codice sorgente - presumibilmente VB.NET

Private Sub Command1_Click()
timer2.Enabled = True
End Sub

Codice sorgente - presumibilmente VB.NET

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

gantonio (Normal User)
Guru^2

Messaggi: 1532
Iscritto: 09/09/2007

Postato alle 16:18
Mercoledì, 09/07/2008

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?

alebird (Normal User)
Pro

Messaggi: 67
Iscritto: 05/10/2007

Postato alle 16:30
Mercoledì, 09/07/2008

ragazzi io ho cercato di modificare il codice da qui:

http://www.pierotofy.it/pages/guide_tutorials/Visual_Basic ...

gantonio (Normal User)
Guru^2

Messaggi: 1532
Iscritto: 09/09/2007

Postato alle 20:34
Mercoledì, 09/07/2008

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

Codice sorgente - presumibilmente Delphi

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 il 09/07/2008 alle 20:36

alebird (Normal User)
Pro

Messaggi: 67
Iscritto: 05/10/2007

Postato alle 22:17
Mercoledì, 09/07/2008

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

aiutatemi vi prego

gantonio (Normal User)
Guru^2

Messaggi: 1532
Iscritto: 09/09/2007

Postato alle 10:11
Giovedì, 10/07/2008

Usa il codice che ti ho suggerito e al posto delle MsgBox utilizzi le

List1.AddItem

per aggiungere elementi alla listbox