Supprimer des fichiers depuis une liste déroulante

Bonjour,

Voilà mon petit souci :

Dans un de mes formulaires, j'ai une comboBox où je récupère des noms de base de données. J'ai créer un bouton RAZ qui permettrait de supprimer toutes les bases de mon dossier... Voici une capture d'écran pour mieu comprendre :

http://img248.imageshack.us/img248/9...nstitreys1.png

En cliquant sur RAZ j'aimerai supprimer de mon pc les bases vet_colmar et vet_mulhouse...

J'avais tenter avec le code là mais ca ne marche pas... La boucle semble etre la bonne mais je n'arrive pas à récupérer le chemin :

Code:

---

1 2 3 4 5

MsgBox (Form_PRINCIPAL.lstSite.ListCount)   For I = 0 To Form_PRINCIPAL.lstSite.ListCount Kill (Form_PRINCIPAL.lstSite.Value) Next

---

Merci pour votre aide !

salut,
je ne vois pas le lien entre ta boucle For I et le Kill.
Ta combo est-elle multiselect?

si tu veux supprimer tous les fichiers qui apparaissent dans la combobox alors il faut plutôt faire ceci:

Code:

---

1 2 3

For I = 0 To Form_PRINCIPAL.lstSite.ListCount Kill Form_PRINCIPAL.lstSite.Column(0,i) Next

---

Cela fonctionne merci, il supprime bien mes deux tables. Cependant il me met un message d'erreur : "Utilisation incorrecte de Null"

les blindages à effectuer avant de faire le Kill
- Dir()
- IsNull()

Comment ca ? PAs compris ? Désolé...
Ca donne quoi dans mon appli ?

Merci d'avance

Dir te sert à vérifier que le fichier que tu comptes supprimer existe bien

Code:

---

1 2 3 4 5

if Dir("C:\temp\monfichierasupprimer.txt")<>"" Then Kill "C:\temp\monfichierasupprimer.txt" Else MsgBox "le Fichier 'C:\temp\monfichierasupprimer.txt' n'existe pas" End if

---

IsNull vient vérifier qu'il y a des valeurs dans ta listbox.

Cela ne réponds pas au problème :cry:
Il trouve un null donc il n'arrive pas à exécuter... Avec le Dir il me met : "Incompatibilité de type"

Code:

---

1 2 3 4 5 6 7 8 9

Function RAZ()   'MsgBox (Form_PRINCIPAL.lstSite.ListCount)   For I = 0 To Form_PRINCIPAL.lstSite.ListCount If Dir(Form_PRINCIPAL.lstSite.Column(0, I)) <> "" Then Kill Form_PRINCIPAL.lstSite.Column(0, I) End If Next

---

J'ai trouvé la solution en fait dans ma boucle For j'ai mi -1 après mon Count étant donné que je pars du I