Supprimer des fichiers à partir des items sélectionnés d'une listbox

**Shennong** · 09/05/2014, 20h47

Bonjour,

Tout est dans le titre. Mais je vais quand-même développer au maximum mon problème.

CE QUE J'AI :
Alors voilà, j'ai une listbox, dont les éléments sont les noms avec extension de fichiers contenus dans un dossier donné. Et j'ai à côté un bouton supprimer.

CE QUE JE SOUHAITES FAIRE :
J'aimerais donc que lorsque l'utilisateur choisis un ou plusieurs items de la listbox (et donc par extension, les fichiers auxquels ils font référence), et qu'il clic sur le bouton supprimer, cela supprime les fichiers. Je rafraîchit ensuite la listbox qui scan le dossier et affiche donc les noms des fichiers restant dans le dossier.

CE QUE J'AI TESTE :
J'ai donc testé un bout de code, qui est une boucle utilisant la collection d'items de la listbox. En gros ça donne ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim fichier as string
 
For each fichier in listbox.SelectedItems.tostring
try
My.computer.system.deletefile(chemin_du_dossier & fichier)
 
'Ici le code pour rafraîchir la listbox comme expliqué au-dessus'
 
catch ex as exception
messagebox("Erreur lors de la suppression" & vbcrlf & vbcrlf & "Message :" ex.message)
 
end try
next fichier

Mais ce code m'affiche une msgbox disant que le fichier "S",et le fichier "y",et le fichier "s" ... et ainsi de suite, les lettre formant, de tête, un truc du genre "System.Forms.Listbox.basketobject ..." un truc qui signifie une collection d'objet j'imagine vu le mot basket. Si vous voulez exactement la "phrase" je vous la donnerai, mais je pense pas que ça soit super important.

Voilà donc mon problème. Si quelqu'un a déjà testé ce genre de prouesse, je suis preneur car je ne vois pas du tout comment faire. Pour supprimer un fichier à partir d'un seul élément sélectionné (mode multi select false), je sais faire, ça fonctionne très bien, mais en multi select je ne vois.

Merci beaucoup d'avance pour votre aide précieuse.

Cordialement-

**rv26t** · 09/05/2014, 21h38

Bonjour,

Il suffit de parcourir la collection d'éléments sélectionnés (le tostring n'a rien à faire là, au passage il t'indique "System.Windows.Forms.ListBox+SelectedObjectCollection") et raffraichir la liste box à la fin de toutes les suppressions

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
For Each fichier In listbox.SelectedItems
  try
    My.Computer.FileSystem.DeleteFile(chemin_du_dossier & fichier)    ' efface le fichier
  Catch ex As Exception
    MessageBox.Show("Erreur lors de la suppression" & vbcrlf & vbcrlf & "Message :" ex.Message)
  End Try
Next
'Ici le code pour rafraîchir la listbox

**wallace1** · 09/05/2014, 21h48

Envoyé par rv26t

Bonjour,

Il suffit de parcourir la collection d'éléments sélectionnés (le tostring n'a rien à faire là, au passage il t'indique "System.Windows.Forms.ListBox+SelectedObjectCollection") et raffraichir la liste box à la fin de toutes les suppressions

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
For Each fichier In listbox.SelectedItems
  try
    My.Computer.FileSystem.DeleteFile(chemin_du_dossier & fichier)    ' efface le fichier
  Catch ex As Exception
    MessageBox.Show("Erreur lors de la suppression" & vbcrlf & vbcrlf & "Message :" ex.Message)
  End Try
Next
'Ici le code pour rafraîchir la listbox

D'après ce que j'ai compris : Les items qu'il ajoute ne contiennent pas le chemin complet du fichier mais uniquement le nom + l'extension. Et c'est là qu'il bloque.

Il existe la possibilité de créer une sorte de classe qui stockerait les valeurs associatives comme un dictionnaire (Key/Value).
Ensuite il faudrait ajouter dynamiquement les items du type de ta classe et retourner la valeur associée grace aux propriétés valueMember et DislayMember mais à mon sens ca fait vraiment usine à gaz.....préfère utiliser le composant Listview bien plus complet en terme de possibilités,de paramétrages et esthétique également !

A+

**rv26t** · 09/05/2014, 22h09

Envoyé par wallace1

D'après ce que j'ai compris : Les items qu'il ajoute ne contiennent pas le chemin complet du fichier mais uniquement le nom + l'extension.

Oui, et alors.

Envoyé par wallace1

Et c'est là qu'il bloque.

Ben non

Envoyé par Shennong

j'ai une listbox, dont les éléments sont les noms avec extension de fichiers contenus dans un dossier donné.

et

Envoyé par Shennong

Je rafraîchit ensuite la listbox qui scan le dossier et affiche donc les noms des fichiers restant dans le dossier.

Apparement, il traite par dossier, il n'a donc dans sa ListBox que les fichiers d'un dossier. Ou alors il a mal expliqué cette partie.

**wallace1** · 09/05/2014, 23h08

@rv26t :

J'ai du mal comprendre.....alors...... ...

**Shennong** · 10/05/2014, 09h35

Bonjour et merci de vos réponse.

Alors pour reprendre :

- Oui lorsque je récupère un item, j'ai seulement, par exemple : toto.txt (ce qui est affiché dans ma listbox. C'est pour cela que je rajoute le chemin avant à partir d'une clé de registre qui le contient. L'erreur affichée lors de la tentative de suppression me marque bien "Impossible de trouver le fichier 'C:\tutu\toto\tata\S'", puis avec "Y", etc ... et ainsi de suite pour former la phrase "System.Windows.Forms.ListBox+SelectedObjectCollection". Donc du coup, le chemin est bon, c'est sûr, mais je ne parviens juste pas à récupérer correctement les noms des items de ma collection comme indiqué dans ma listbox.

- Ensuite, j'ai déjà essayé également en retirant le ToString à la fin de Listbox.selecteditems, mais j'ai exactement le même résultat. Mais je suis obligé de caster en string, c'est donc pourquoi au moins la variable fichier doit être de type string. Et pourtant cela ne fonctionne pas. C'est à s'en arracher les cheveux !!! Je pige vraiment pas l'erreur.

- J'adorerais utiliser un listview, mais c'est plus compliqué, en ce sens qu'il n'existe pas d'équivalent "mono-item" comme dans la listbox avec listbox.selecteditem. On ne peut que créer des collection avec listview.selecteditemS. Du coup, si c'est aussi galère à gérer qu'avec la listbox, c'est ême pas la peine. Pourtant oui, j'aimerai beaucoup, c'est plus stylé. D'après ce que j'ai compris on peut faire apparaître des icônes (ça remplacerai avantageusement mes boutons de gestion "ajouter", "supprimer" et "renommer"). On peut afficher une petite image dans la première colonne à côté des items ... mon appli étant un agrégateur d'émulateurs, et listbox servant à afficher les roms, je pourrai afficher une petite puce électronique par exemple. On peut aussi afficher plusieurs colonne, je pourrai ainsi récupérer des infos des fichiers de roms et les afficher .... bref oui, ce serait génial un listview, mais je ne maîtrise pas du tout ce contrôle.

Si vous avez d'autres questions n'hésitez pas, je dois vraiment résoudre ce problème de listbox à la con qui me pourri mon dev.

Merci beaucoup à vous !

**rv26t** · 10/05/2014, 12h22

Une question bête comme ça.
Les éléments que tu ajoutes dans ta listebox c'est bien des chaînes de caractère, pas des objets.
Parceque le "listbox.text" te renvoie bien une chaîne, il fait un tostring implicite, mais dans la collection "selecteditems" il ne le fait pas.

Et la variable "dim fichier as string" déclarée en string dans ton code est caché par la variable "fichier" de la boucle "For Each" qui elle sera du type des éléments mis dans la listbox (voir la portée des variables)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim fichier as string ' ne sera pas utilisé dans la boucle For Each
For each fichier in listbox.SelectedItems
' ici fichier est du type des éléments que tu as ajouté dans ta listbox, si c'est un objet rajouter tostring sur l'objet pour obtenir le texte
My.Computer.FileSystem.DeleteFile(chemin_du_dossier & fichier.Tostring) '

[Edit]J'avais pas vu la modif complémentaire de Rainui sur les listbox

**Shennong** · 11/05/2014, 00h22

Bonsoir,

Je passe en speed pour voir les réponses. Je vois que ça a cogité, et je vous en remercie beaucoup. J'ai survolé rapidement les réponses. Je regarderais ça lundi en détail, pour le moment je ne suis pas chez moi. S'il y a des solutions je testerais donc tout ça lundi et je vous donnerais mon feedback.

Merci encore pour toutes ces réponses et à bientôt !

Cordialement-

**rv26t** · 12/05/2014, 13h12

Montre nous le code pour remplir la ListBox.

**Shennong** · 12/05/2014, 17h24

Bonjour,

Alors je vais me mettre à tester les solution proposées. Pour rv26t, voici le code utilisé pour peupler la listbox :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 'On définit le chemin des roms (celui utilisé lors de l'installation)
            cheminconsole = chemin + "ATARI_7800\"
            Dim files = My.Computer.FileSystem.GetFiles(chemin + "ATARI_7800\", FileIO.SearchOption.SearchAllSubDirectories, "*.*")
            For Each rom As String In files
                resultat = IO.Path.GetFileName(rom)
                lst_roms.Items.Add(resultat)
            Next